задание во влажении. ..........
1. примерно как то так.
var a,b,ch:integer;
begin
readln(ch);
a:=ch div 100;
b:=ch mod 10;
if (a=b) then writeln(Chislo polindrom)
else
writeln(Ne polindrom);
end.
2. условие If r >= sqrt(sqr(x)+sqr(y)) then в круге//
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
