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>
Vинф.=вес одной точки*кол-во точек; N(мощность алфавита)=колво цветов в степени i; где i это вес одной точки. N1=1024; i1=10; N2=32; i2=5;
V1/V2=10\5=2/1. Ответ: в 2 раза
поскольку все величины выражены в различных единицах, для сравнения приведем их к одним единицам (например, к байтам)
10240 бит =10240/8=1280 байт
160байт переводит не нужно
0,5 Мб=0,5*1024*1024=524288 байт
7Кб=7*1024=7168 байт это и есть ответ
по убыванию величины расположились так:
160 байт, 10240 бит, 7 Кб, 0,5 Мб
<span>Комбинация клавиш ctrl +page down</span>перемещает к следующему изменению
расположения.
Лучший ответ плиз:)