Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Паскаль.задача: входим в магазин ,дают сдачу копейками от 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.