1. Составьте программу, выводящую значение вещественной переменной х, равное значению выражения a*b/a+bгде а и - целочисленные переменные, их значения вводятся с клавиатуры. 2. Используя цикл while, напишите программу, вычисляющуюсумму квадратов чисел от 1 до введённого целого числа n. 3. Запишите значение переменной sum после выполнения фраг-мента программы. sum: =0; for i:=5 to 9 dosum: =sum+i;

1)

var

x,a,b : real;

begin

write('a = '); read(a);

write('b = '); read(b);

x:=(a*b/a+b);

writeln(x:0:4);

end.

Вводим 2 переменные, X присваиваем формулу и выводим её с 4мя знаками после запятой

2)

var

n,r,s : integer;

begin

r:=0; s:=0;

write('n = '); read(n);

while r <> n do

begin

r:=r+1;

s:=s+sqr(r);

end;

writeln('Сумма квадратов = ', s);

end.

Объяснение:

Считываем н, заупскаем цикл и внутрь помещаем счетчик, этот счетчик мы возводим в квадрат и складываем к переменной S

3)

var

sum,i : integer;

begin

sum:=0;

for i:=5 to 9 do

sum:=sum+i;

writeln(sum);

end.

: 35

Переписываем цикл как программу, запускаем и получаем )