var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Для хранения цвета одной точки изображения с 32 <span>градациями серого цвета требуется log(2)32 = 5 бит. Объем файла = 800*600*5 бит = 800*600*5/8 байт = 100*600*5/1024 Кбайт </span>≈ 293 Кбайт
Электронная почта на компьютере
1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
<span>END.
2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
<span>END.</span></span>
<em>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).JoinIntoString('').
Where(c->c in ['2','4','6','8']).Select(c->c.ToDigit).Sum.Println
end.
<u>Пример</u>
13
4492 13638 -4490 4186 13985 -4266 5805 -26574 28710 -378 17920 1886 -24200
146