1) Написать программу на языке Паскаль, которая вычисляет среднее арифметическое пяти любых чисел. 2) Написать программу на языке Паскаль, вычисляющую корни квадратного уравнения.

1) program zz1;

var a, s, i:integer; / / вводим переменные целого типа

begin

for i:=1 to 5 do / / организуем цикл на пять повторений

begin

writeln (' введите ', i, '-ое число ');

read (a); / / вводим число

s:=s + a; / / прибавляем его к сумме

end;

write (' среднее арифметическое пяти чисел = ', s/5) / / выводим ответ

end.

2) program zz1;

var a, b, c, d:integer; / / вводим переменную целого типа

begin

write (' введите a, b, c '); / / вводим с клавиатуры число

read (a, b, c);

d:=b * b - 4 * a * c;

if d < 0 then write (' корня квадратного уравнения нет ');

if d = 0 then write (' корень квадратного уравнения = ',-b/2*a);

if d > 0 then begin writeln ('1 корень квадратного уравнения = ', - b+sqrt (d) / a*2); write ('2 корень квадратного уравнения = ', - b-sqrt (d) / a*2); end;

end.