klim576
Var a,min:integer; begin write('a = '); readln(a); min:=30000; while a<>0 do begin if (a mod 3=0)and(a<min) then min:=a; write('a = '); readln(a); end; write('min = ',min); end.
Пример: a = 20 a = 45 a = 64 a = 15 a = 80 a = 71 a = 0 min = 15
Var a,min:integer; begin writeln('Вводите числа пока вам не надоест(чтобы ост нажмите 0): '); write('Введите первое число: '); readln(a); while a<>0 do begin write('Введите число последовательности: '); readln(a); if min>a then if a mod 3=0 then min:=a; end; write('Минимальное число кратное 3: ',min); end.
Answers & Comments
begin
write('a = ');
readln(a);
min:=30000;
while a<>0 do
begin
if (a mod 3=0)and(a<min) then min:=a;
write('a = ');
readln(a);
end;
write('min = ',min);
end.
Пример:
a = 20
a = 45
a = 64
a = 15
a = 80
a = 71
a = 0
min = 15
Verified answer
Var a,min:integer;begin
writeln('Вводите числа пока вам не надоест(чтобы ост нажмите 0): ');
write('Введите первое число: ');
readln(a);
while a<>0 do
begin
write('Введите число последовательности: ');
readln(a);
if min>a then if a mod 3=0 then min:=a;
end;
write('Минимальное число кратное 3: ',min);
end.