1. Дополните предложение. Системы программирования - ……
Языки программирования - ……
2. Даны переменные.
A=’ A’ B=456 C=123.4 D=True
Определите типы данных для каждой переменной и соедините линиями тип
данных и
переменную.
3. Задача «Максимум из трех чисел»
Условие
Введите с клавиатуры три целых числа. Выведите значение наибольшего из
них.
4. Задача «Hello, User!»
Loop
Напишите программу бесконечного цикла, которая просит имя пользователя
и приветствует его, выводя слово Hello, введенное имя и знаки препинания
по образцу:
Введите имя: Джон
Привет, Джон!
Введите имя: Гарри
Привет, Гарри!
Цикл должен остановиться, когда пользователь введет «Хватит»

1)

var 

a,b,c:real;

begin

readln(a,b);

c:=180-a-b;

if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')

else

if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else writeln('остроугольный');

end.

2)

var

v:real;

begin

readln(v);

if v<7.8 then writeln ('ракета упадет на Землю');

if v=7.8 then writeln ('ракета станет спутником Земли');

if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы'); 

end.

var
a, b: real;
n: integer;

function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;

function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;

begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.