Задание:
СРОЧНО! ПРОГРАММА С ВЕТВЛЕНИЕМ! Составьте программу, которая по введенному вами k-число грибов, печатает фразу: «Мы нашли в лесу k грибов» причемсогласовывает окончание слова «гриб» с k.!
Решение:
var k: integer; beginwriteln ('Input number of mushrooms: '); Readln (k); if k=1 then Writeln ('Mi nashli ',k,' grib') elseif (k=2) or (k=3) or (k=4) then Writeln ('Mi nashli ',k,' griba') elseWriteln ('Mi nashli ',k,' gribov'); readln; end.
Знаете другой ответ?