Помогите написать в Паскале программу диалогаНаписать в Паскале программу диалога компьютером с пользователем. (Спросить имя.Поздороваться,обращаясь по имени.Узнать о возрасте.Любимой книге.Любимом предмете в школе. За ранее спасибо)
3
(22 оценки)
34
var a:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln();
writeln('Какой у тебя любимый предмет в школе?');
readln();
writeln('Какая у тебя любимая книга');
readln();
end.
Если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант:
var a,b,c,d:string;
begin
writeln('Как тебя зовут ?');
readln(a);
writeln('Привет ',a,' !');
writeln('Сколько тебе лет? ');
readln(b);
writeln('Какой у тебя любимый предмет в школе ?');
readln(c);
writeln('Какая у тебя любимая книга ?');
readln(d);
write ('Значит тебя зовут ',a ,'. Тебе ',b,'. Твой любимый предмет - ',c,'. И твоя любимая книга - ',d);
readln();
end.