Предмет: Информатика,
автор: Инанна
Много баллов!!
Пришлите файл, выполненный в паскале
Приложения:

Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: belgibaevaindira44
Предмет: Литература,
автор: alinan29
Предмет: Русский язык,
автор: joker176372
Предмет: Английский язык,
автор: Frankenshtein1508
Предмет: Английский язык,
автор: malina2107