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

Ответы 1

  • Pascal ABCПервый вариант с вводом числа с клавы, второй с циклом For1)Var A:integer;S:string;BeginWrite('Сумма сдачи = ');Read(A);if (A>10)and(A<21) then S:= ' копеек'elseCase A mod 10 of1:S:=' копейка';2..4:S:=' копейки';0,5..9:S:=' копеек';End;WriteLn(A,S);End.2)VarA:integer;S:string;BeginFor 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) EndEnd.
    • Автор:

      sassysmeb
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years