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

Question

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

Экономика

Гость

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

Гость

var i: integer; begin for i:= 35 to 87 do begin if i mod 7 = 1 then writeln(i, ' - остаток 1'); if i mod 7 = 2 then writeln(i, ' - остаток 2'); if i mod 7 = 5 then writeln(i, ' - остаток 5'); end; end.

Accepted Answer

Program Chisla; Uses Crt; var i:integer; begin clrscrl for i:=35 to 87 do if (((i mod 7)=1) or ((i mod 7)=2) or ((i mod 7)=5)) then writeln(i); readkey; end.