program massiv;
uses crt;
var i,j: integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i: =1 to 6 do begin for j: =1 to 6 do begin a[i,j]: =random(101)-50; end; end;
for i: =1 to 6 do begin for j: =1 to 6 do begin write(a[i,j]: 3); end; writeln; end;
readkey;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Пользователь вводит число если оно кратно 3 то разделим на три если нет то прибавим 1 и разделим на 4
var a,b,c,p: integer; begin writeln('введите a'); readln(a); writeln('введите b'); readln(b); writeln('введите c'); readln(c); if (a< =b+c) and (b< a+c) and (c< =a+b) then begin p: =(a+b+c) div 2; writeln('треугольник может существовать'); writeln('площадь: ', sqrt(p* ((p-a)*(p-b))*((p-: 1: 2); //формула герона end else writeln('не треугольник'); readln(); end.