1)
Var
A,B,C:real;
Begin
WriteLn('Введите значения углов в градусах:');
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B+C=180 then
Begin
WriteLn('Существует');
if (A = 90)or(B = 90)or(C = 90) then Write('Является прямоугольным')
else Write('Не является прямоугольным')
End
else WriteLn('Не существует')
End.
2)
Var n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4);
End.
Сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программу.
<u>Решение на языке Pascal:</u>
var n: real;
begin
n := (20 + 30) / 2 * 11;
writeln(n);
end.
Иное решение: с помощью цикла просуммируем все числа от 20 до 30.
var
i, s: integer;
begin
s := 0;
for i := 20 to 30 do
s := s + i;
writeln(s);
end.
Зрительная, так как только её нельзя написать..
Звуковая, видеоинформация, графическая информация, числовая информация, письменная информация