Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Ответ : 468732 секунд
программа
program n1;
var a,b,b1,c,col,sch:integer;
begin
b:=106;
b1:=106;
a:=132;
c:=134;
col:=1;
sch:=0;
while (sch1) do begin
b1:=b*col;
col:=col+1;
if ((b1 mod a) = 0) and ((b1 mod c) = 0) then sch:=sch+1;
end;
writeln(b1,' секунд');end.