Умнож на 10 и дальше как она писала
В байте 8 бит, в килобайте 1024 байта, в МБ 1024 КБ и т.д.
614400 бит / 8 = 76800 байт
76800 байт / 1024 = 75 килобайт
75 / 1024 = 0.073 МБ (приблизительно)
614400 бит 76800 байт 75 КБ 0.073 МБ
4194304 бит 534388 байт 512 КБ 0.5 МБ
2097152 бит 262144 байт 256 КБ 0.25 МБ
33554432 бит 4194304 байт 4096 КБ 4 МБ
if (условие) then
begin
end; //условный оператор
_____________________
for i:=a to b do
begin
end; //Цикл с параметром
_____________________
while (условие) do
begin
end; //цикл с предусловием
_____________________
repeat
until (условие) //цикл с постусловием
Не понятно про "Жесткий" цикл. Но как вариант:
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
Program wz;var a,b:integer;x:real;
begin
writeln('Введите a ');
readln(a);
writeln('Введите b');
readln(b);
x:=(a+b)/(a*b);
writeln('x=',x);
end.