Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Программа Паскаль. Напишите всё решение от начала до самого конца

Ответ оставил Гость

программа (аналог) только для копеек

program z4;
uses crt;
var a:byte;
begin
clrscr;
write(Введите число(1-99): );
readln(a);
if (a<1) or (a>99) then
writeln(Некорректно введено число!)
else
begin
if (a=11) or (a=12) or (a=13) or (a=14) then
writeln(a, копеек.)
else
case a mod 10 of
1:writeln(a, копейка.);
2,3,4:writeln(a, копейки.);
5,6,7,8,9,0: writeln(a, копеек.);
end;
end;
end.