Во-первых, не на программе паскаль, а на языке. Это язык программирования.
begin
var a:array [1..5,1..3] of integer;var i:integer; var j:integer;var sum:integer;var count:integer;count:=0; sum:=0;for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=random(2*20+1); for i:=1 to 5 dobegin for j:=1 to 3 do write( a[i,j]+' '); writeln;end;
for i:=1 to 5 do for j:=1 to 3 do if(((i+j) mod 2) = 0) then begin count:=count+1; sum:=sum+a[i,j]; end;writeln('Среднее арифметическое: '+ sum/count);end.
Массив заполняется рандомно
function Hypo(a, b: real) := Sqrt(a * a + b * b);
begin
var (a, b) := ReadInteger2();
Print('Периметр треугольника =', Hypo(a, b) + a + b)
end.
Один байт-8 цифр.128 64 32 16 8 4 2 1. Суммируй до той степени, пока не выйдет твое число. на месте использованных цифр ставь 1, вместо неиспользованных 0. число 137- 10001001
Ответ:
portable network graphics
joint photographic
graphics interchange format
windows bitmap
Объяснение: