Ответы на вопрос:
Если на паскале и не совсем оптимально, то так:
var
a, b, c, d,nmin,min: integer;
begin
min: =maxint;
readln(a);
if a< min then begin
nmin: =1;
min: =a;
end;
readln(b);
if b< min then begin
nmin: =2;
min: =b;
end;
readln(c);
if c< min then begin
nmin: =3;
min: =c;
end;
readln(d);
if d< min then begin
nmin: =4;
min: =d;
end;
writeln(nmin);
end.
Популярно: Информатика
-
Владивостокер22.09.2020 04:24
-
valeryanka9722.01.2022 14:41
-
bambar29ozvclx28.01.2021 14:45
-
hanum2708200526.11.2020 22:03
-
veselskih199830.12.2020 16:34
-
dms30445p0a74305.03.2021 21:08
-
NooraXx06.08.2020 07:12
-
vikarudenko199825.09.2021 12:32
-
znania5312.07.2022 03:15
-
Vasilisa26021604.01.2021 01:28