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

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

Question

Информатика

Тристан

17 марта, 09:01

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

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

+3

Ответы (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