program perimetr;
uses crt;
var a,b,c:real;P:real;
begin
writeln('ведите число');
read(a,b,c);
P:=a+b+c;
write(p)
end.
а с площадью все тоже самое.
У нас имеется страниц - 2. В каждой 32 строки по 64 символа, значит общее количество символов будет 2*32*64 = 4096.
Теперь количество наших символов умножаем на информационный объем за символ, то есть для Unicode это 16 бит за символ.
4096 символов* 16 бит = 65536 бит.
8 бит = 1 байт.
1024 байта = 1 Кбайт
65536 бит / 8 = 8192 байта / 1024 = 8 Кбайт.
Ответ: 3) 8 Кб
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadReal('a =');
Writeln('y = ', (a**2+10)/(sqrt(a**2 + 1)));
end.
<u>Пример:</u>
a = 1
y = 7.77817459305202
Вот с;
ничего не надо. обожаю эти таблицы делать ахаха. извини, если ошибка где
1)var h:array[1..8]of integer;
i:integer;
begin
write('massiv');
for i:=1 to 8 do
read(h[i]);
writeln;
write('elementi s otric znach');
for i:=1 to 8 do
if h[i]<0 then write(h[i],' ');
<span>end.
2)</span>var h:array[1..10]of integer;
i,k:integer;
begin
write('massiv:');
for i:=1 to 10 do
begin
h[i]:=random(21)-10;
write(h[i],' ');
end;
writeln;
for i:=1 to 10 do
if h[i]<0 then k:=k+1;
write('kol-vo elem s otric znach:',k);
<span>end.
3)var h:array[1..10]of integer;
i,k,p:integer;
begin
write('massiv:');
for i:=1 to 10 do
begin
h[i]:=random(10)+1;
write(h[i],' ');
end;
writeln;
p:=1;
for i:=1 to 10 do
if h[i] mod 2=1 then
begin
k:=k+1;
p:=p*h[i];
end;
write('kol-vo elem s nechet znach:',k,' proizvedenie:',p);
<span>end.
5)</span></span>var h:array[1..20]of integer;
i,k,s:integer;
a:real;
begin
write('massiv:');
for i:=1 to 10 do
begin
h[i]:=random(20)+1;
write(h[i],' ');
end;
writeln;
for i:=1 to 10 do
if (h[i] mod 3=0)and(i mod 2=0) then
begin
k:=k+1;
s:=s+h[i];
end;
a:=s/k;
write('srednee arifmet:',a);
<span>end.</span>