Ветвления на Паскале. Программирование диалога с компьютером Помогите!
Answers & Comments
ka555777ty
Program v1; uses crt; var a,b:integer; begin writeln('Введите возраст Саши: '); readln(a); writeln('Введите возраст Маши: '); readln(b); if a>b then write('Саша старше Маши '); if a<b then write('Маша страше Саши '); if a=b then write('Маша и Саша - ровесники'); end.
Answers & Comments
uses crt;
var a,b:integer;
begin
writeln('Введите возраст Саши: ');
readln(a);
writeln('Введите возраст Маши: ');
readln(b);
if a>b then write('Саша старше Маши ');
if a<b then write('Маша страше Саши ');
if a=b then write('Маша и Саша - ровесники');
end.