1. var a, s, cifra: integer; begin s:= 0; writeln('Введите натуральное число'); readln(a); while a > 0 do begin cifra:= a mod 10; //Определяем очередную цифру числа s:= s + cifra * cifra * cifra; //Прибавляем к значению s цифру в кубе a:= a div 10; //целочисленное деление числа на 10 (отсекаем текущую цифру) end; writeln('Сумма кубов цифр числа: ', s); end. 2. var a: integer; begin writeln('Введите натуральное число'); readln(a); while a > 9 do {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой} a:= a div 10; writeln('Первая цифра числа: ', a); end.
var
a, s, cifra: integer;
begin
s:= 0;
writeln('Введите натуральное число');
readln(a);
while a > 0 do
begin
cifra:= a mod 10; //Определяем очередную цифру числа
s:= s + cifra * cifra * cifra; //Прибавляем к значению s цифру в кубе
a:= a div 10; //целочисленное деление числа на 10 (отсекаем текущую цифру)
end;
writeln('Сумма кубов цифр числа: ', s);
end.
2.
var
a: integer;
begin
writeln('Введите натуральное число');
readln(a);
while a > 9 do {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой}
a:= a div 10;
writeln('Первая цифра числа: ', a);
end.