Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
24 Мбит в секунду скорость передачи данных
Ответ:
4) 25 кБ
Объяснение:
Общее число символов на странице - 32 * 25 = 800;
Общее число символов в статье - 800 * 32 = 25600;
Информационный объем статьи - 25600 * 8 = 204800 бит,
204800 / (8 * 1024) = 25 кБ
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.