=ЕСЛИ(C2<2;(1500);ЕСЛИ(И(C2>=2;C2<=6);(D2*10%);ЕСЛИ(C2>6;(8000))))
Var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if i mod 2 =0 then write(s[i],s[i])
else write(s[i]);
end.
1) <span>I III V VII
2) </span><span>13,5
3) 340
4) 15410</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей