Цитата:
Сообщение от citrus
Помогите, пожалуйста, написать на паскале след задание:
"Определить сумму квадратов первых трех цифр заданного пятизначного числа. "
|
PROGRAM OPREDEL;
USES CRT;
VAR CHISLO,CIFRA1,CIFRA2,CIFRA3,SUMMA:INTEGER;
BEGIN
CLRSCR;
WRITELN('ВВЕЛИТЕ ЧИСЛО');
READ(CHISLO);
CIFRA1:=CHISLO DIV 10000;
CIFRA2:=CHISLO DIV 1000 MOD 10;
CIFRA3:=CHISLO DIV 100 MOD 10;
SUMMA:=SQR(CIFRA1)+SQR(CIFRA2)+SQR(CIFRA3);
WRITELN('1 ЦИФРА=',CIFRA1,' 2 ЦИФРА=',CIFRA2,' 3 ЦИФРА=',CIFRA3,' СУММА ЧИСЕЛ',SUMMA);
END.