Паскаль. задача: входим в магазин, дают сдачу копейками от 1 до 100, определить окончание для всех чисел. с помощью "case". т. е.

1,21,31,41 ... 91-копейка

2 ... 4,22 ... 24,32 ... 34 ... - копейки

5 ... 20,25 ... 30-копеек

только методом деления числа

Pascal ABC

Первый вариант с вводом числа с клавы, второй с циклом For

1)

Var A:integer;

S:string;

Begin

Write ('Сумма сдачи = ') ; Read (A) ;

if (A>10) and (A<21) then S: = ' копеек'

else

Case A mod 10 of

1:S:=' копейка';

2 ... 4:S:=' копейки';

0,5 ... 9:S:=' копеек';

End;

WriteLn (A, S) ;

End.

2)

Var

A:integer;

S:string;

Begin

For A: = 1 to 100 do

Begin

if (A>10) and (A<21) then S: = ' копеек'

else

Case A mod 10 of

1:S:=' копейка';

2 ... 4:S:=' копейки';

0,5 ... 9:S:=' копеек';

End;

WriteLn (A, S)

End

End.