Так понимаю, консольный 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>
11. с
12. d
13. a
14. b
15. Если наступит новый год, то у нас начнутся каникулы.
16.Если погода будет хорошей, то мы поедем в деревню.
17. Если на зимних каникулах пойдет снег и отец купит мне санки, то я буду кататься на санках.
Если один символ кодируется 8-ю битами
16*32*60*8=245760 бит;
245760/8=30720 байт=30720/1024=30 Кбайт.
Если один символ кодируется 16-ю битами
16*32*60*16=491520 бит;
491520/8=61440 байт=61440/1024=60 Кбайт.
привел программу к более красивому и правильному виду :)
var s : integer := 2;
begin
for var k := 1 to 3 do s *= s;
writeln(s);
end.
тут трижды S умножается сама на себя а затем результат сам на себя. Получается следующая математическая формула:
на паскале это можно записать как:
writeln(sqr(sqr(sqr(s))));