profile
Опубликовано 5 лет назад по предмету Информатика от masjandrikovna

паскаль.задача: входим в магазин ,дают сдачу копейками от 1 до 100 ,определить окончание для всех чисел .с помощью "case".т.е. 
1,21,31,41...91-копейка
2...4,22...24,32...34..-копейки
5..20,25..30-копеек
только методом деления числа 

  1. Ответ
    Ответ дан Аккаунт удален
    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.


Самые новые вопросы