Если хочешь, чтобы проги выдавали только число, убери из них строку <span>Write(N,'! + ');</span>
Сколько всего бусин и кинь фотку
Programa vichislenie_ploshadi_treug_po_Geronu;
Var a,b,c,S,p:real;
begin
writenLn(‘dliny storon’);
readLn(a);
readLn(b);
readLn(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writenLn(‘ploshad=’,S);
end.
4. Выполнение.
Alt+F9 – компиляция, проверка на ошибки.
Ctrl+F9-выполнение программы.
Вводим переменные(длины сторон треугольника).
Alt+F5 – просмотре результатов.
Получаем на экране ответ.
5. Объяснение:
Programa vichislenie_ploshadi_treug_po_Geronu;(название программы)
Var a,b,c,S,p:real;(переменные в программе)
begin(начало рабочей области)
writenLn(‘dliny storon’);(оператор ввода оповещает о необходимости ввести переменные)
readLn(a);
readLn(b);
readLn(c);(считывается значение переменных в память компьютера)
p:=(a+b+c)/2;(рассчитывается полупериметр)
S:=sqrt(p*(p-a)*(p-b)*(p-c));(рассчитывается площадь треугольника)
writenLn(‘ploshad=’,S);(вывод результата на экран)
end.(конец рабочей области)
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150