Question

Дано трехзначное число.Проверьте равна ли его первая цифра сумме квадратов второй и третьей

Answer 1

var a1,a2,a3,a:integer;

begin

write('Введите трехзначное число: ');

readln(a);

if (a>99) and (a<1000) then

begin

a1:=a div 100;

a2:=a div 10 mod 10;

a3:=a mod 10;

if a1=sqr(a2)+sqr(a3) then writeln('1 цифра равна сумме квадратов 2 и 3 цифр') else writeln('1 цифра не равна сумме квадратов 2 и 3 цифр');

end else

writeln('Было введено не трехзначное число!');

end.

Answer 2

я ввел 822,он вывел: "1 цифра равна сумме квадратов 2 и 3"
2 в квадрате(4) + 2 в квадрате(4)
4+4 =8

Answer 3

а косяк,все правильно)

Answer 4

Эм, я всегда свои программы перед публикацией компилирую для проверки

Answer 5

прости,просто лохонулся я,когда компилировал)

Answer 6

Бывает)