Все нули . потому что 00 . 001 и т.п. считаются за 1клб
Var i:integer;
begin
for i:=10 to 99 do
if (i mod 7=0) then writeln(i);
end.
Var a: char;
begin
readln(a);
if (a = 'М') then writeln('Мужской');
if (a = 'Ж') then writeln('Женский');
<span>end.
Проверил =)</span>
Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.
1) а=0 0 = 10. нет, тогда b становится -3 (т.к. -(3)+ 0 * 0), а становится 2
2). а = 2 2 = 10, нет, тогда b становится 7 (т.к. -(-3) + 2 * 2), а становится 4
3). а = 4 4 = 10, нет, тогда b становится 9 (т.к. -(7) + 4 * 4), а становится 6
4). а = 6 6=10, нет, тогда b становится 27 (т.к. -(9) + 6 * 6), а становится 8
5). а = 8 8=10, нет, тогда b становится 37 (т.к. -(27) + 8 * 8), а становится 10
6). a = 10 10 = 10 да, b = b * 2 = 37 * 2 = 74
ответ: 74