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.
1 - истина
2 - ложь
3- истина
Объяснение: