79:2=39 1
39:2=19 1
19:2=9 1
9:2=4 1
4:2=2 0
2:2=1 0
1:2=0 1
ответ:1001111
Так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
readln(a, y);
if (a > y) then
begin
x := a / 100;
writeln(x);
end;
if (a < y) then
begin
k := 100 * abs(a);
writeln(k);
end;
<span>end.</span>
If a<b then a:=a*2 else if b<a then b:=b*2;
12 кб = 12 * 1024 = 12288 байт
8000 бит = 8000:8 = 1000 байт
8192 байта = 8192:1024 = 8 килобайт
5 мб = 5120 киобайт
Var a,b,i,s:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 1
b = 30
s = 70