Var
i,y,x:integer;
begin
writeln (введите x );
y:=20;
if x:=5 then y:=y*x;
writeln (`y =' ,y);
<span>end.</span>
78=>16
214=>326
89=>131
111=>157
Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.
Нет, например задачи NP - класса 3-SAT и 3-NCF, также задача факторизации за ф-ию от длины. Решение - экспонента, а проверка ответа - линейная(полином)
Массив из трех целочисленных элементов