var
x: array of string;
y: string;
begin
//readln(y);
y := 'Привет мой дорогой и прекрасный умопомрач мир';
x := y.Remove(y.Length - 1).Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y.Length);
end.
Var d,p,x:real; t,i:integer;
begin
d:=120;
readln(p,x,t);
for i:=1 to t do d:=d+d*p/100-x;
writeln('d = ',d:5:2);
end.
Пример:
10 15 5
<span>d = 101.68</span>
Произведение:
* С/П
(ввод: x ^ y С/П, результат: z)
Для объёма параллелепипеда:
* * С/П
(ввод: a ^ b ^ h С/П, результат: V)
Для скорости:
/ С/П (ввод: s ^ t С/П, результат: U)