5.Создать файл из 100 целых чисел, лежащих на отрезке [150,9000], испол

[viktoriya95]

Здравствуйте, помогите, пожалуйста, решить задачу
5.Создать файл из 100 целых чисел, лежащих на отрезке
[150,9000], используя генератор случайных чисел.
-Вывести эти числа на экран.
-Вывести на экран все числа,равные сумме квfдратовасвоих цифр.
-Найти среднее арифметическое трехзначных простых чисел, кратных
сумме своих цифр.

[Хыиуду]

Генератор случайных чисел - функция 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;

Определение переменных напишете сами. Среднее арифметическое - ищите по форуму, тут таких тем десятки

[viktoriya95]

Спасибо, но к сожалению я почти ничего не поняла