Запросите имя пользователя и его возраст определите год рождения вывести его на экран и попрощайся по имени (паскаль ABC)

Question

Информатика

Полактия

31 октября, 21:43

Запросите имя пользователя и его возраст определите год рождения вывести его на экран и попрощайся по имени (паскаль ABC)

+5

Ответы (1)

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

Ната · Answer 1

Var a:string;

b, c:integer;

beginwriteln ('Привет, как тебя зовут?') ;

readln (a) ;

writeln (a, ', cколько тебе лет?') ;

readln (b) ;

writeln (a, ', и тебе ', b, 'лет, в каком году ты родился?') ;

readln (c) ;

writeln (c, ', хорошо!') ;

writeln ('Мне пора идти, пока ', a, '!') ;

end.