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

Question

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

Comments

это на паскале код написать?

---

Да

---

ок,щас сделаю

---

а нет,это сложно)какой это класс?

Answer 1

var a1,a2,a3,a:integer;

begin

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

readln(a);

if (a>99) and (a

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.

Comments

не правильно)

---

ты проверял свою программу?

---

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

---

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

---

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

---

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

---

Бывает)