Паскаль.задача: входим в магазин ,дают сдачу копейками от 1 до 100 ,определить окончание для всех чисел .с помощью "case".т.е. 1,21,31,41...91-копейка2...4,22...24,32...34..-копейки5..20,25..30-копеектолько методом деления числа
Паскаль.задача: входим в магазин ,дают сдачу копейками от 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.
Не нашли ответ?
Похожие вопросы