Question

Scrieți un program care calculează suma pătratelor cifrelor unui număr natural de trei cifre citit de la tastatură
Dar sa fie neapărat în PASCAL

Answer 1

Răspuns:

program Suma;

var num, c1,c2,c3,spc:integer;

begin

 Write('numar='); Read(num);

 c1:=num div 100;

 c2:=(num mod 100) div 10;

 c3:=num mod 10;

 spc:=Sqr(c1)+Sqr(c2)+Sqr(c3);

 Writeln(spc);

end.

Explicație:

variabila spc   sumapatratelorcifrelor