Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[i] := random (11)-5;
write(m[i],' ');
if m[i] > max then begin inc(cnt); max := m[i]; end;
end;
writeln;
writeln('Максимальное число: ',max);
writeln('Всего максимальных чисел: ', cnt);
end.
В 16-ричной системе: 48656C6C6F21
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
Ответ:
(800*600*16)/(8*1024*1024)=0,9 Мбайта
Объяснение: