Блок-схема по паскалю. 1) Задано вік трех друзів. Складіть програму, за допомогою якої ми визначимо хто з них старше.
2) Задано вік двох друзів. Складіть програму, за допомогою якої ми визначимо хто з них старше.
Answers & Comments
Мавортий
1)var a,b,c:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); writeln('Введите возраст 3 друга'); readln(c); if (a>b) and (a>c) then writeln('Старшим является 1 друг') else if (b>a) and (b>c) then writeln('Старшим является 2 друг') else writeln('Старшим является 3 друг'); end. 2)var a,b:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); if a>b then writeln('Старшим является 1 друг') else writeln('Старшим является 2 друг'); end.
Answers & Comments
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
writeln('Введите возраст 3 друга');
readln(c);
if (a>b) and (a>c) then writeln('Старшим является 1 друг')
else if (b>a) and (b>c) then writeln('Старшим является 2 друг')
else writeln('Старшим является 3 друг');
end.
2)var a,b:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
if a>b then writeln('Старшим является 1 друг')
else writeln('Старшим является 2 друг');
end.