составить программу в паскале!!! ПОЖАЛУЙСТА!!! СРОЧНО!!! 9 класс!!! На ввод в программу натурального числа из диапазона [1, 25] программа выводит это число и согласованное с ним слово «книга». Например, на ввод числа 1 программа выводит «1 книга», на ввод числа 2 — «2 книги» и т. д.
More Questions From This User See All
Answers & Comments
var
count:integer;
begin
write('Введите количество книг '); readln(count);
case count div 10 of
1: writeln(count, ' книг');
else
case count mod 10 of
0, 5..9: writeln(count, ' книг');
1: writeln(count, ' книга');
2..4: writeln(count, ' книги');
end;
end;
end.