Напишите программу, на языке Паскаль, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99),
обозначающего денежную единицу, дописывает слово «копейка» в правильной форме, например:
23 копейки, 41 копейка, 50 копеек и т. д. Подумайте, от чего это зависит? Помогите пожалуйста!!!
Ответы на вопрос
Ответил Леганда555
1
var
n: Integer;
begin
Write('Введите число: ');
Read(n);
Write(n, ' ');
if (n mod 10 in [5..9]) or (n mod 10 = 0) or (n in [11..19]) then
WriteLn('копеек')
else if n mod 10 = 1 then
WriteLn('копейка')
else
WriteLn('копейки')
end.
Новые вопросы
Математика,
6 лет назад
Геометрия,
8 лет назад