Здравствуйте, помогите, пожалуйста, решить задачу
5.Создать файл из 100 целых чисел, лежащих на отрезке
[150,9000], используя генератор случайных чисел.
-Вывести эти числа на экран.
-Вывести на экран все числа,равные сумме квfдратовасвоих цифр.
-Найти среднее арифметическое трехзначных простых чисел, кратных
сумме своих цифр.
5.Создать файл из 100 целых чисел, лежащих на отрезке [150,9000], испол
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Генератор случайных чисел - функция random из модуля crt
Проверить, является ли число суммой квадратов своих цифр
Определение переменных напишете сами. Среднее арифметическое - ищите по форуму, тут таких тем десятки
Проверить, является ли число суммой квадратов своих цифр
Код: Выделить всё
function is_sum_squares(x: longint): boolean;
x1:=x;
while (x1>0) do begin
inc(s, sqr(x1 mod 10));
x1:=x1 div 10;
end;
is_sum_squares := x=s;
end;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
-
- Сообщения: 4
- Зарегистрирован: 22 фев 2014, 08:31
Спасибо, но к сожалению я почти ничего не поняла