1.
program z_1;
var i,s;intger;
a:array [1..50] of integer;
begin
for i:=1 to 50 do
begin
readln(a[i]);
s:=s+a[i];
end;
writeln(s);
end.
2.
program z_2;
var c1,c2,pp:integer;
begin
readln(c1);
readln(c2);
pp:=round((c1*c2)/2);//полупроизведение двух чисел
writeln(pp);
end.
3.
program z_3;
var k,v,s:integer;
begin
readln(k);//Стоимость книги
readln(v);//Внесено денег
if k=v then
writeln('Спасибо!')
else
if k<v then
writeln('Возьмите сдачу : ',v-k)
else
writeln('Недостаточно средств : ',k-v);
end.
1, 2 и 5 задание сам вводишь по условию
а 3 и 4 рандомом
128,11x10^4 1,2811x10^7
128,11х10000 1,2811х10000000
1281100 < 12811000
14579x10^-2 0,14579x10^0
14579х0.01 0.14579х1
145.79 > 0.14579
1,246x10^4 1246x10^1
1.246x10000 1246x10
12460 = 12460
156 Йбит = 163577856 Эбит
Привет)вот ответ)Спасибо не забудь!
<span>1.Объем = 11 * 1024 = 11264 байт. Соотношение байт с количеством символов - 1 к 1. Значит каждый символ алфавита кодируется одним байтом. В одном байте 8 бит, соответственно мощность алфавита - 2^8 = 256 символов..</span>