Question

Помогите,пожалуйста прошу вас! НЕ ПРОХОДИТЕ МИМО!
50 баллов

Answer 1

{Я специально запишу в форме программ, чтобы Вам стал более понятен синтаксис. Нужные Вам выражения находятся над процедурами writeln()}
1. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a+b);
writeln(c);
end.
2. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=(a+b)/(a-b);
writeln(c);
end.
3. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqr(a+b);
writeln(c);
end.
4. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a)+sqrt(b);
writeln(c);
end.
5. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
11. var f,m,a:integer;
begin;
m:=3;
a:=2;
f:=m*a;
writeln(f);
end.
12. var c,z,b:real;
begin;
z:=2;
b:=1;
c:=z*sqrt(b+3*sqrt(b));
writeln(c);
end.
13. var a,c,k:real;
begin;
a:=1;
k:=2;
c:=sqrt(a)/sqr(k);
writeln(c);
end.
14. var k,f,b,c:real;
begin;
f:=1;
b:=2;
c:=3;
k:=(f+b+c)/3;
writeln(k);
end.
15. var k,a,b,c:real;
begin;
a:=1;
b:=2;
c:=3;
k:=a*(b/c);
writeln(k);
end.