var M:array [1..20] of integer;
n, Ch, Ost : integer;
Begin
ReadLn(n);
while n >= 2 do
begin
Ch := n div 2;
Ost := n mod 2;
M[] := Ost;
end;
WriteLn( M[]);
end.
Просто впиши ссылку на существующий сайт, через несколько минут они сами выделяться и будет возможность перейти на ссылку, но не уверена, что именно в блокноте это работает. Попробуй другой текстовой редактор, если не получится.
Var
x:integer;
begin
readln(x);
writeln(5*x+5*x/5+x);
end.
1) a = 0, b = 0
2) идём по строке, если символ 'A', то ++а, т.е. станет а = 3
3) если два символа симметричны относительно центра, то ++b
ALL OUR LIF
EMAG A SI E
симметричных символов нет, поэтому b = 0
<span>4) b > a == false, поэтому D = a*a*a = 27</span>
SCREEN 7
pi = 3.14
CIRCLE (100, 100), 60, 15, pi / 2, pi * 1.5
CIRCLE (160, 100), 60 * SQR(2), 15, pi * 3 / 4, pi * 5 / 4
<span>PAINT (45, 100), 14, 15</span>