rashНапишите блок схему для этого кодаProgram lol;Var a,b,c,max,min:integer;beginreadln(a,b,c);if a>b then max:=aelse max:=b;if c>max then max:=c;writeln('Максимальное число',max);if aelse min:=b;if cwriteln('Минимальное число'min);end.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
Перепиши программу так:
Program lol;
Var a,b,c,mx,mn:integer;
begin
readln(a,b,c);
mx := max(max(a, b), c);
mn := min(min(a, b), c);
writeln('Максимальное число ',mx);
writeln('Минимальное число ',mn);
end.
23
Ruby TaylorЧтобы ответить необходимо зарегистрироваться.
