Составьте программу, которая по введенному k – числу цветков печатает фразу «В букете k цветков», причем согласовывает окончание слова «цветок» с числом k. НА ПАСКАЛЕ
Составьте программу, которая по введенному k – числу цветков печатает фразу «В букете k цветков», причем согласовывает окончание слова «цветок» с числом k. НА ПАСКАЛЕ
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Bouquet;
var
k: integer;
begin
write('Введите количество цветков в букете: ');
readln(k);
if (k mod 10 = 1) and (k <> 11) then
writeln('В букете ', k, ' цветок')
else if (k mod 10 > 1) and (k mod 10 < 5) and ((k div 10) mod 10 <> 1) then
writeln('В букете ', k, ' цветка')
else
writeln('В букете ', k, ' цветков');
end.