Много баллов!! Пришлите файл, выполненный в паскале
Много баллов!!
Пришлите файл, выполненный в паскале
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы