#include <iostream>
#include <math.h>
using namespace std;
int main()
{
double W, t, r, y;
cin >> t;
cin >> r;
cin >> y;
W = (4 * pow(t, 3) + log(r)) / (exp(y+r)+7.2*sin(r));
cout << W;
}
Var
a:array [1..9] of real;
i:integer;
begin
for i:=1 to 9 do read(a[i]);
a[2]:=abs(a[2]);
a[4]:=abs(a[4]);
a[6]:=abs(a[6]);
a[8]:=abs(a[8]);
for i:=1 to 9 do write(a[i],' ');
end.
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
Ответ:
1)
Begin
Read(a);
S:=a mod 10+a div 10;
Writeln(s);
Writeln(a-s);
End.
2)
function Prost(a:longint):boolean;
var i:longint;
f:boolean;
begin
if a<2 then f:=false{первое простое=2}
else
begin
f:=true;{считаем что простое}
i:=2;
while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}
if a mod i=0 then f:=false{если делитель, не постое}
else i:=i+1;{иначе дальше}
end;
Prost:=f;{результат true или false}
end;
Begin
Read(a,b);
For i:=a to b do
If Prost(i) then
Writeln(i);
End.
3)
Begin
Sum:=0;
For i:=1 to n do
If a[n] mod 3 = 0 then
Sum:=sum + a[n];
End.