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.
var
i: integer;
for i:= 35 to 87 do
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;
ИСПОЛНИТЕЛЬ, ЭТО ТОЧНО, У НАС ТАКОЙ ЖЕ КРОССВОРД БЫЛ.
Ответ:
Это вирус
Объяснение:
Просто отдай его на ремонт!