Самое 1 не подходит , ибо остальные это продукты майкрософт офис, 2 для презентаций, 3 это ворд для текстовых документов , а 4 это для работы с базой данных
Если буква кодируется одним байтом, то 8. Если двумя - только 4.
Var
i,n:integer;
s,t:real;
begin
Write('n='); Readln(n);
s:=0;
for i:=1 to n do begin
Read(t);
s:=s+t*t
end;
Writeln('Сумма квадратов равна ',s)
end.
<u>Пример</u>
n=5
-23.1 42.6 146 0 0.12
Сумма квадратов равна 23664.3844
Vara,b,z,x:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
<span> end.</span>
Const n=5;
var
a,b:array[1..n,1..n] of integer;
i,j: byte;
max2,k5:integer;
begin
randomize;
k5:=0;
max2:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(1,100);
write(a[i,j]:4);
if (i=2) and (a[i,j]>max2)
then max2:=a[i,j];
if (j=5) and (a[i,j] mod 2 =0)
then k5:=k5+1;
end;
writeln;
end;
writeln;
writeln ('Максимальный элемент 2-ой строки = ',max2);
writeln ('Количество четных элементов 5-го столбца = ',k5);
end.
---------------------------------------------
Пример:
2 26 38 58 16
70 24 40 39 35
74 38 69 93 94
64 6 18 56 93
44 86 17 93 56
Максимальный элемент 2-ой строки = 70 <br>
Количество четных элементов 5-го столбца = 3