<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if Abs(n).Between(100,999) then begin
Writeln('Число трехзначное');
if n.IsOdd then Writeln('Число нечетное')
else Writeln('Число четное');
if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны')
else Writeln('Его первая и последняя цифры не равны')
end
else Writeln('Число не трехзначное')
end.
<u>Примеры</u>
n= 452
Число трехзначное
Число четное
Его первая и последняя цифры не равны
n= 313
Число трехзначное
Число нечетное
Его первая и последняя цифры равны
n= 18
Число не трехзначное
1) 1<6 - да, то => i:=1+1=2, s:=0+2=2.
2)2<6 - да, то => i:=2+1=3; s:=2+3=6.
3)3<6 - да, то => i:= 3+1=4; s:= 4 + 6 = 10.
4)4<6 - да, то => i:= 4+1=5; s:= 10+5=15.
5)5<6- да, то => i:=5+1=6; s:= 15+6=21.
6) 6<6-нет
Для решения задачи необходимо наибольшее из значений x, для которых выполняются условия:
x^2 <= 69 и x^3 > 69
x=7: 7^2 = 49; 7^3 = 343
x=8: 8^2 = 64; 8^3 = 512
x=9: 9^2 = 81
Ответ: x=8