Регистрация
Черныйангел01
08.05.2022 08:45
Информатика
Есть ответ 👍

, сегодня сдать надо​

296
397
Посмотреть ответы 1

Ответы на вопрос:

arcadig01
arcadig01
4,7(59 оценок)

program 1qq;

var c,b,n,a: integer;

begin 

readln(n);

readn(a);

b: =0;

c: =a;

while b< n do begin

b: =b+1;

if a mod 19 = 0     and a mod 23 = 0 then writeln(a);

a: =a+1;

end;

writeln('konec');

end.

 

Популярно: Информатика