Ответы
Ответ дал:
1
var a,min3: integer;
begin
min3:=30000;
repeat
readln(a);
if (a mod 3 =0) and (a<>0) then min3:=a;
until a = 0;
writeln(min3);
end.
begin
min3:=30000;
repeat
readln(a);
if (a mod 3 =0) and (a<>0) then min3:=a;
until a = 0;
writeln(min3);
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
5 лет назад
5 лет назад