Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
// PascalABC.NET 3.3
begin
Print(ReadString.ToWords.Reverse.ElementAt(1))
end.
Пример ввода:
Если ты упал семь раз, встань восемь
Пример вывода:
встань
Sub z()
n = CInt(InputBox("N?"))
k = 1
s = 0
For i = 1 To n
k = k * i
s = s + k
Next
MsgBox (s)
End Sub
<em>var a, b, n, i:integer;</em>
<em>begin</em>
<em> b:=-1;</em>
<em> for i:=1 to 10 do</em>
<em> begin</em>
<em> a:=a+b;</em>
<em> b:=b+3;</em>
<em> end;</em>
<em> writeln (a);</em>
<em>end.</em><span><em> </em></span>