Ответ:
Перепроверь правильность написания формул. Проблема может быть даже в точке
Var
n, s: integer;
begin
readln(n);
n := abs(n);
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
writeln(s);
end.
1)
var
k,i:integer;
begin
while i<=10 do
begin
k:=k+1;
if k mod 7 = 0 then
begin
writeln(k);
i:=i+1;
end;
end.
2)
var
k,i:integer;
begin
while i<=11 do
begin
k:=k+1;
if k mod 5 = 0 then
begin
writeln(k);
i:=i+1;
end;
end.
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.(конец рабочей области)
