Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
«Statistical Psychology for the Social Sciences» – «статистический пакет для психологов и социологов»
Загадки:в этом заведении
все перебывали
двоечники,гении
отметки получали
учились здесь артисты
певцы,артиллеристы
сюда хожу и я,
и вы,мои друзья(школа)
что же за предмет такой,
девчонки и мальчишки?
для каждого он-дорогой
что это (записная книжка)
через поле и лесок подается голосок
он бежит по проводам-
скажешь здесь а слышно там (телефон)
Var a,b: array [0..100] of integer;
i, j, s,k,max: integer;
begin
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
(A[k]):= random(90)+78;
write((A[k]:4));
if max < a[k] then begin max:=a[k];s:=k; end;
END;
write('A[' + s +'] =':8, max:4 );B[s]:=max;
writeln;
s:=0;max:=0;
END;
writeln;k:=0;
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
if b[k] > 0 then (b[k]):= random(90)+78; //забег номеров победителей
if max < b[k] then begin max:=b[k];s:=k; end; //победитель среди
победителей
write((b[k]:4));
END;
writeln;
END;
write('A[' + s +'] =':8, max:4 );
end.
только мало что осталось от той программы много
ошибок Главная n нельзя в константы она не будет делиться и т.д.