Гавриил
4 год назад
Дано 4 числа (без разницы x,y,z,q),составить блок схему для нахождения минимального числа при условии,что все числа неравны.
ОТВЕТЫ
Akim
Oct 24, 2020
program abc;
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.
153
Смежные вопросы: