Это какой клас информатика
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.
№1
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
--------------------------------
№2
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; mass[i][3] := 1; mass[3][i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
Uses crt;
var x,y:integer;
begin
write('x='); readln(x);
y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
writeln('y=',y);
<span>end.</span>
