Question

Сформировать последовательность, состоящую не менее чем из n цифр,такую, что каждое двухзначное число, записываемое двумя соседними цифрами(в том порядке, в каком они написаны), должно делиться на 19 или 23. Последовательность должна начинаться на заданную цифру.

'это если что в паскале)и цикл должен быть вайл или репит)

 

Answer 1

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.