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

Question

Петра

18 сентября, 09:31

+3

Ответы (1)

Знаете ответ на вопрос?

Геннадий · Answer 1

var k:integer;

begin

repeat

readln (k) ;

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

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

readln;

end.