Var n,i,s:integer;
Begin
Readln(n);
For i:=1 to n do
If n mod i =0 then
s:=s+i;
If s = n then
Write('верно')
Else
Write('не верно');
Readln
End.
Файл данных:
Первое — это архивный шифр. Он состоит из названия фонда, номера фонда, номера описи, номера единицы хранения (дела), номера листа в деле. Пусть будет: ГА. Ф. 111. Оп. 5. Д. 469. Л. 342, 347-347 об., 374 (Государственный архив. Фонд 111. Опись 5. Дело 469. Листы 342, 347-347 оборот, 374)
Название фильма: Бегущий в лабиринте: Лекарство от смерти
Режиссер: УэсБолл
Год выпуска: 2018
Страна: США
Актеры: Кая Скоделарио, Дилан О'Брайэн, Натали Эммануэль, Кэнтрин МакНамара, Томас Сэнгстер, Уолтон Гоггинс, Роза Салазар, Джанкарло Эспозито, Патриция Кларксон, Бэрри Пеппер, Ки Хонг Ли, Джейкоб Лофленд и другие.
Носитель: CD
Отдано: 1
_______________________
Файл друзей:
Фамилия: Колер, Сун
Имя: Скот, Девин
Телефон: +1 650 759-97-50 (США)
Дата выдачи: 1.02.2018 (дата выхода фильма)
Дата возвращения: 11.03.2018
Вот ответ: 83FFFC1
С начало переводим в 10 с.с потом в 16 с.с, все на фото.
Program sh;
var j:integer;
massiv:array [1..1000] of integer;
begin;
begin;
randomize;
for j:=1 to 1000 do
massiv[j]:=random(1000);
end;
for j:=1 to 1000 do
begin;
if (massiv[j] mod 1=0) then
if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
write (massiv[j]:5);
end;
end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.