для массива A заданы числа от 1 до 6, 1 символ = 2 байта, 6 * 2 = 12 байт.
Ответ: 328
------
Набор букв для возможности опубликовать ответ
program noname;
uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
clrscr;
for i:=1 to 20 do begin
randomize;
a[i]:=random(100)-50;;
write(a[i],' ');
if (a[i] mod 2=0) and (a[i]<>0) then k:=i;
end;
n:=0;
for i:=1 to k do
if a[i]<0 then n:=n+1;
writeln;
writeln(k,'-номер последнего четного');
writeln(n,'-число отрицательных элементов до ', a[k])
end.
Ваша задача находит периметр треугольника, складывая вводимые длины его сторон.
На экран сначала будет выведен текст "Введите стороны треугольника", а по окончании ввода - строка "P=ххххх", где ххххх - вычисленная сумма трех введенных чисел. Предполагается, что все числа - целые.
1)i:=7;
<span>while i<=8 do begin
writeln('Привет!');
i:=i+1 =8
2)i:=8</span><span>;
<span>while i<=8 do begin
writeln('Привет!');
</span></span><span>i:=i+1 =9
На следующий раз он уже не повторится
Ответ: 7
</span>