СРОЧНО!Напишите задачу в паскаль.

5-9 класс

1.дано натуральное число определить сумму кубов его цифр
2. дано натуральное число определить его первую цифру

Morgan911 28 февр. 2017 г., 20:04:17 (7 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

ане444ка

28 февр. 2017 г., 21:04:51 (7 лет назад)

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.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Lbfyf2012 / 16 февр. 2017 г., 21:41:58

1.заполните одномерный массив B1 размерностью в N(< 30 задает пользователь при выполнении программы) элементов так, чтобы каждый элемент с четным

номером был равен половине своего номера, а каждый элемент с нечетным номером - количеству элементов в массиве. сформированный массив вывести на экран в столбик.
2.а) найдите среднюю температуру за неделю. (температура была: -5; -3; -7; -6; -2; -4; -3)
б) сколько дней было выше средней? ниже средней?
3. сформируйте массив BC размерностью 30 элементов случайным образом из диапазона 0 - 50. сформированный массив выведите на экран в строку. подсчитайте сумму всех четных элементов массива и отдельно сумму элементов имеющих четные индексы. выведите результаты подсчета на экран. замените элементы равные своему индексу на самый большой элемент массива, если таковые имеются. получившийся массив выведите на экран в столбик. отсортируйте получившейся массив по убыванию.