Pascal

Даны натуральные числа от n до 87+n. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

n=5

Question

Информатика

Андроша

15 марта, 07:30

Pascal

Даны натуральные числа от n до 87+n. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

n=5

+3

Ответы (1)

Знаете ответ на вопрос?

Сосипатр · Answer 1

Program ch;

var i, n:integer;

begin

n:=5;

n:=n+87; / / при условии того, что нам нужно прибавить 87 к 5

for i:=1 to n do if (i mod 7 = 1) or (i mod 7 = 2) or (i mod 7 = 5) then write (i,' ') ;

end.

PascalДаны натуральные числа от n до 87+n. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.n=5

Pascal

Даны натуральные числа от n до 87+n. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

n=5