Ответ(ы) на вопрос:
Гость1.
1/(1+1/(2+3/5))
2.
var a,b,c,p : real;
begin
write('a='); readln(a);
write('b='); readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln('p = ',p);
end.
Пример:
a=3
b=4
p = 12
3.
var n,m:integer;
begin
write('n = '); readln(n);
m:=(n mod 100)*10 + n div 100;
writeln('m = ',m);
end.
Пример:
n = 324
m = 243
Гость1) a:=1/(1+1/(2+3/5))
2) uses crt;
var a,b,p:real;
begin
clrscr;
Write('Введите катеты:');
readl(a,b);
write('периметр=',(a+b+sqrt(a*a+b*b));
end.
3)
uses crt; var a,s,d,e:integer; begin clrscr; write('введите целое трехзначное число '); readln(a); s:=a div 100; d:=a div 10 mod 10; e:=a mod 100 mod 10; write('новое число=',100*d+10*e+s);end.
Не нашли ответ?
Похожие вопросы