Var x,y:real;
begin
read (x,y);
if (x<0) and (y<0) then writeln (abs(x),' ',abs(y)) else
if ((x<0) and (y>=0)) or ((y<0) and (x>=0)) then writeln (x+27,' ',y+27) else
if (x>=0)and (y>=0) then writeln (x-20,' ',y-20);
end.
<span>#include <iostream>
int main()
{
int sum = 0, n = 0, value = 0;
std::cin >> value;
while(value) {
n = value % 10;
value /= 10;
if(n % 2) sum += n;
}
std::cout << sum;
<span>}</span></span>
Program enot;
const m=15;
var a: array[1..m] of integer;
i, j, k: integer;
begin
for i := 1 to m do
a[i] := random(21)+10;
for i := 1 to m-1 do
for j := 1 to m-i do
if a[j] < a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (a[i]:4);
<span>end.</span>
16 * 64 = 1024 (2¹⁰)символов на странице
1024*16=16384 (2¹⁴)бит
16384:8=2048(2¹¹)байт
2048:1024=2кб
1 страница=2КБ
10 КБ : 2 КБ = 5 страниц