даны числа от 36 до 1477 необходимо числа кратные 8 разделить на 2 и вывести на экран и числа кратные 7 умножить на 2 и вывести на экран
Answers & Comments
NikolayHCl
Нет возможсти проверить. Если неправильно - напиши. ______________ var x : integer; begin for x:=36 to 1477 do begin if x div 8 = 0 then writeln(x/2); if x div 7 = 0 then writeln(x*2); end;
Answers & Comments
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.