Дано натуральное число k. Написать программу, которая по введенному числу k от 1 до 99 напишет фразу: ("Мне, k, лет")

Question

Снандулия

21 февраля, 06:36

+2

Ответы (1)

Знаете ответ?

Тертий · Answer 1

var k:integer;

begin

repeat

readln (k) ;

until (k>1) and (k<99) ;

writeln ('мне ', k, 'лет') ;

readln;

end.