Program formula;
var y,x,M:real;
begin
readln(y,x);
M:=cos(2*y)+3.6*exp(x);
write('M=', M);
<span>end.</span>
Var
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
<u>Пример</u>
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
<u>Пример</u>
7 2
m=7, n=7
Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...
var a,k : integer;
begin
k := 0;
readln (a);
while a > 0 do
begin
a := a - (a div 10 + a mod 10);
k := k +1;
end;<span>
writeln (k);
end.</span>
uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.