Определим как «красивое» целое положительное трехзначное число Х, для которого...

Question

Определим как «красивое» целое положительное трехзначное число Х, для которого выполняется следующее условие: сумма квадратов первой и последней цифр
равна квадрату средней цифры. Напишите программу, которая выводит на экран все «красивые» числа и их количество.

Answer 1

program zadacha_1;
var a,b,c,a2,d:integer; 
begin d:=0;   
for a:=100 to 999 do begin   
a2:=a;   
 b:=a2 mod 10;   
 a2:=a2 div 10;   
c:=a2 mod 10;   
a2:=a2 div 10;   
if sqr(b)+sqr(a2)=sqr(c) then writeln(a);   
if sqr(b)+sqr(a2)=sqr(c) then d:=d+1 ;   
end;   
writeln('количество ==>', d);
end.

Comments

рад помоч

---

А почему не написали if sqr(b)+sqr(a2)=sqr(c) then begin writeln(a); Inc(d) end; обойдясь одним условием?

---

я просто не знаком с этой функцией

---

Какой функцией? Это стандартный блок Паскаля.

---

А если Вы про inc - пишите d:=d+1, это непринципиально

---

тем более не знаком раз назвал стандартный блок функцией. И тем более программа работает и работает верно чего ещё надобно простому смертному, но за указание ошибки спасибо я обещаю пополнить свои знания относительно этой темы.

---

begin ... end в Паскале незнакомо???

---

считаю вопрос неуместным

---

Печально, если так.

---

и вам всего доброго