var
s,a : integer;
begin
a := 2;
s := 0;
While a <= 20 do
begin
s := s + sqr(a);
a := a +2;
end;
writeln (s);
readln();<span>
end.</span>
Python 3.
a, b, c, d = map(int, input().split())
for x in range(1000 + 1):
if a * x ** 3 + b * x**2 + c * x + d == 0:
print(x)
Пример ввода:
1 2017 -36598 65120
Пример вывода:
2
16
<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>
Var
a,b,c:integer; x:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
x:=a+b*b/c;
write('X=',x);
end.