Program chik;
var c:array[1..1000,1..1000]of longint;
n,m,i,j,p:longint;
begin
read(n,m);
for i:=1 to n do
beginf
or j:=1 to m do
begin
read(c[i,j]);
end;
end;
for j:=1 to m do
begin
p:=c[3,j];
c[3,j]:=c[5,j];
c[5,j]:=p;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span>
Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
во вложении..............................
Извини здесь не получиться написать посмотри примеры в учебнике
1) Находим мощность кодировки по формуле
N = 2^i
Мощность кодировки (N) = 2^i=256; i=8; соответственно 1 символ занимает 1 байт или 8 бит.
2) Переводим объём информации (0,25 Кбайт) в байты. Давайте лучше считать в байтах.
0,25 Кбайт = 256 байт,
3) Находим кол-во символов в тексте.
256 / 1 = 256 символов
Ответ: текст содержит 256 символов.