Перейдите на лист 1 и выполните в рамке. компания «макрохард» набирает программистов на новый проект. претенденты проходят два отборочных тура, на которых они выполняют тестовые . на работу принимаются все, кто набрал больше 80 на первом туре и больше 70 на втором. определите, сколько новых сотрудников принято на работу по результатам двух туров. нужно составить формулу, по которой вычесляют
Begin
Write('N = ');ReadLn(N);
Write('Искомые числа:');
For N:= 1 to N do
Begin
B:=N;
k:=1;
// перед каждой проверкой k:=1
// и если число не делится на любую из своих цифр, то k:=0
While B > 0 do
Begin
if B mod 10 = 0 then k:=0
// B mod 10 - это остаток от деления B на 10
// то есть, например, 123 mod 10 = 3
else if N mod (B mod 10) > 0 then k:=0;
B:=B div 10
// целая часть от деления B на 10
// 123 div 10 = 12
End;
if k = 1 then Write(' ',N)
End;
End.
2. Клод Шеннон - основатель теории информации .Приложил свои руки в инженерии, кибернетики, электротехнике, математике и теории информации. Разработал теорию связи кодирования. Создал промышленную радиоуправляемую игрушку , ввёл понятие "бит" - единица измерения. Отмечен многими наградами и премиями, и Нобелевской премией.
3. Тедом Нельсоном в 1965 году
4. Тим Бернерс-Ли в 1980 году