Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
1-(10+10+6+5+11)+5+10+17+20+18+10+3=-42+83=41(градус цельсия). 2)41:12=3,416(Градусов цельсия) округляем до 3,4 градусов цельсия( ответ)
10*1024 = 10240 байт
10240/(32*40*8) = 1 байт - столько "весит" 1 символ
1 символ - 8 бит. 2 в восьмой степени равно 256. 256 символов в алфавите
<span>program chik;
var a,b:array[1..1000]of longint;
c:array[1..1000,1..1000]of longint;
n,m,i,j:longint;
begin
read(n,m);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to m do
begin
read(b[i]);
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
c[i,j]:=a[i]+b[j];
end;
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></span>
Напиши там что-нибудь например что он там вредит здоровью зрение портит излучение мдёт