Мобильные связи, соц.сети, телефоны, новости, газеты, журнал ы
program c1;
var
a,k:integer;
begin
writeln( ' Введите число в диапазоне от 1 до 10: ')
read(a);
if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел');
end.
Program z1;
var a,i,sum:integer;
Begin
sum:=0;
for i:=1 to 5 do
begin;
read(a);
if (a<0) and (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
End.
Program z2;
var a,p,i:integer;
Begin
p:=1;
for i:= 1 to 5 do
begin;
read(a);
if (a mod 10=2) or (a mod 10=4) then
p:=p*a;
end;
writeln(p);
End.
I - Стиль линии
II. - Толщина линии
III. - Цвет линии
IV. - Настройка границ ячейки (границы сверху, снизу, слева и т. д.)
2 в 20 степени бит=128 Кб
байт- 2 в 3 ст.
кило (1024) - 2 в 10 ст
20-13=7
2 в 7 ст.=128
Итог выше