Var n,i:integer;
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
Var a, b, c, d:integer;
begin
Read(a);
b:=a mod 10;
c:=a mod 100;
d:=c div 10;
WriteLn(b*d);
end.
И(-2>0;2-4>3) ⇒ <span><span>(-2>0) И (2-4>3) ⇒ ЛОЖЬ И ЛОЖЬ ⇒ ЛОЖЬ
</span>ИЛИ (5-8/2=1;9/3-3>=-1) ⇒ </span><span><span>(5-8/2=1) ИЛИ (9/3-3>=-1) ⇒
ИСТИНА ИЛИ </span>ИСТИНА ⇒ ИСТИНА
НЕ(2<3-4)
⇒ НЕ (ЛОЖЬ) ⇒ ИСТИНА</span>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3>
function IsPrime(self: integer): boolean; extensionmethod;
begin
Result := true;
for var i := 2 to floor(sqrt(self)) do
if self mod i = 0 then begin result := false; exit; end;
end;
begin
Println(ReadInteger.IsPrime ? 'Да' : 'Нет')
end.