Var n:integer;
Begin
Read(n);
while (n>0) do begin
if(n mod 2 = 1) then begin
writeln(true);
exit;
end;
n := n div 10;
end;
writeln(false);
End.
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите номер месяца (1-12):');
case n of
3,4,5:Writeln('Весна');
6,7,8:Writeln('Лето');
9,10,11:Writeln('Осень');
12,1,2:Writeln('Зима')
else Writeln('Неверный номер')
end
end.
X<>10;
(x>0) and (y>0);
x>0;
(x>=0) and (x<=4);
(x>-5) and (x<=5);
x>=0;
x mod 2 = 0;
x mod 2 = 1;
x mod 3 = 0;
(x mod 2 = 0 ) and (x mod 3 =0);
x mod 5 <> 0;
1) 48*1024/(64*64) = 12 страниц.
2) 10*32*48*2 = 30720 байт = 30 кб.
3) 24*32*60 = 46080 байт = 45 кб.
Решение.
2^i=256
2^8=256
8 бит=1 байт.
I=30*60*32=57600 байт\1024=56,25 КБ.