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