//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
В левом верхнем углу окна есть панелька, а на ней несколько пиктограмм: сохранить, вперёд, назад, создать... Тут же и пиктограмма принтера для быстрой печати. Если её нажать, то документ распечатается полностью. Если пиктограммы на этой панели нет, то справа у этой панельки есть стрелочка. Нажать на стрелочку, и откроются дополнительные инструменты для этой панельки. Там есть пиктограмма принтера. Нажми на неё, и она появится на панели инструментов.
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
<span> общий алгоритмический метод для нахождения оптимальных решений различных задач оптимизации, особенно дискретной и комбинаторной оптимизации. По существу, метод является вариацией полного перебора с отсевом</span>
1 бит = 0.125 байтам
1 килобит = 125 байтам
1 мегабит = 125000 байтам
1 байт = 8 битам
1 килобайт = 8000 битам
1 мегабайт = 8000000 битам