Написать программу в Паскале

8) Найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, ..., 10 дает в остатке 1

Question

Информатика

Ася

2 декабря, 15:31

Написать программу в Паскале

8) Найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, ..., 10 дает в остатке 1

+2

Ответы (1)

Знаете ответ?

Наша · Answer 1

Const N=11;

var i, d, k:integer;

begin

k:=0;

repeat

k:=k+N;

d:=0;

for i:=2 to 10 do if k mod i = 1 then d:=d+1;

until (d=9) or (K>32000) ;

if d=9 then writeln ('Искомое число = ', K)

else writeln ('Число не найдено') ;

end.

Написать программу в Паскале8) Найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, ..., 10 дает в остатке 1

Написать программу в Паскале

8) Найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, ..., 10 дает в остатке 1