Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
s: = str(number);
for : = 1 to length(s) div 2 do
if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
4k+2m+1=41
k+m+1=15
4k+2m=40
k+m=14
2k+m=20
-k-m=-14
k=6
var a,b,c,d,x1,x2: real; beginreadln(a,b,c); d: =b*b-4*a*c; if d< 0 then writeln('только комплексные корни')else
begin
d: =sqrt(d);
x1: =(-b+d)/(2*a); x2: =(-b-d)/(2*a); writeln('x1=',x1); writeln('x2=',x2); end; end.
1)1+9+2=12
2)12: 3=4
вот так!
Популярные вопросы