Var
r, r1, r2, r3, r4 : real;
begin
write ('R1 = '); readln (r1);
write ('R2 = '); readln (r2);
write ('R3 = '); readln (r3);
write ('R4 = '); readln (r4);
r := r1 + (r2 * r3) / (r2 + r3) + r4;
writeln ('R = ', r);
end.
program open_s;
var
y,a,b,c:real;
begin
writeln('Введи значение a');
readln(a);
writeln('Введи значение b');
readln(b);
writeln('Введи значение c');
readln(c);
y:=sqrt(a-c)-((sqr(b)+2)/c);
write('Ответ: ',y);
end.
Заметим, что цикл s=s-5; выполняется 11 раз. Отсюда следует, что из s вычитается 5*11=55.
100-55=45