«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В11. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.»

Задание:

1. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.

2.Найти все трехзначные числа, сумма цифр которых равна А, кратное В (А и В вводят с клавиатуры)

Отчет по второй лабораторной работе(ПРЗ)

Постановка задачи

1. Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.

2 Найти все простые натуральные числа, не превосходящие n, двоичная запись которых представляет собой палиндром.

Задание:

1. Распечатать анкетные данные учеников, участвовавших в олимпиаде по информатике и заработавших не менее 30 баллов.

Отчет по первой лабораторной работе.

Тема:

Теория чисел

Задание:

1. Вычислить сумму делителей некоторого целого числа СН, формируемого генератором случайных чисел в диапазоне от 1 до 10000.

2.Найти все трехзначные числа, сумма цифр которых равна А, кратное В (А и В вводят с клавиатуры)

Программа:

uses crt;

function IntToStr(i:integer):string;

Var S : String [11];

Begin

Str(I, S);

IntToStr:=S;

End;

var

g:real;

u,e,a,b,i,j,k:integer;

s:string;

begin

writeln('1-e Zadanie');

randomize;

k:=random(10000);

writeln('N=',k);

for i:=1 to k-1 do

begin

if k mod i =0 then

begin

j:=j+i;

end;

end;

writeln('S=',j);

i:=0;j:=0;

writeln('2-e zadinie');

writeln('Vvedite a b');