При вводе текста : 1,2 и 4
Верно ли записан текст: верно
Для перемещения в начало: ctrl page up
Сколько начертаний: ф ы в а
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.
1. ноги - убрать.
2. пищи - убрать.
3. месяце - убрать.
4. ледяной - убрать.
5. мою - убрать.
6. оранжевыми - убрать.
7. и развалины - убрать.
8. военным - убрать.
9. холодное - убрать.
10. поведения - убрать.