Напиши программу, которая будет спрашивать у пользователя одно число, и сохранять его в переменную. Если число будет больше или равно 100, то наша программа нарисует круг красного цвета с радиусом 100.
Иначе, программа нарисует зеленый круг с радиусом 50.
//PascalABC.NET 3.2 сборка 1318
Var
i,j,k,m,n,count:integer;
s,s1:string;
begin
readln(n);
for i:=1 to n do
s+=inttostr(i);
for i:=1 to length(s) do
if (s[i]='2') or (s[i]='0') or (s[i]='1') or (s[i]='3') then s1+=s[i];
s:=s1;
for i:=1 to length(s) do
if s[i]='2' then
for j:=i+1 to length(s) do
if s[j]='0' then
for k:=j+1 to length(s) do
if s[k]='1' then
for m:=k+1 to length(s) do
if s[m]='3' then inc(count);
writeln(count);
end.
Пример ввода:
500
Пример вывода:
23760240