Делать в паскали.дано натуральное число .найти количество совершенных чисел меньших или доривнюючих ему. ответ вывести на экран и сделать это с файлами
Uses Crt; Var f:text; S,n,k,d:integer; Begin Assign(f,'TextIn.txt'); Reset(f); Read(f,n); k:=0; For n:= 1 to n do Begin S:=0; d:=n div 2; While d<>0 do Begin if n mod d = 0 then S:=S+d; d:=d-1 End; if S = n then Begin WriteLn(n); k:=k+1 End End; Close(f); Assign(f,'TextOut.txt'); ReWrite(f); Write(f,k); Close(f); ReadLn; End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
1. Что может быть опасным для здоровья при работе в компьютерном классе? ✔ большая нагрузка на зрение ✔ повышенная нагрузка на суставы кистей ✔ электрический ток излучение от батарей отопления излучение от мониторов 2. Какие правила надо выполнять при работе в сети Интернет? смотреть только сайты на русском языке не скачивать файлы и программы ✔ не запускать программы, полученные из Интернета не использовать электронную почту ✔ не изменять настроек браузера 3. Какие программы можно запускать на компьютере? ✔ которые относятся к теме урока ✔ любые с разрешения учителя все, кроме игровых программ все, кроме программ с вирусами все, кроме программ из Интернета 4. Какое напряжение в электрической сети компьютерного класса? 380 вольт 36 вольт ✔ 220 вольт 127 вольт 5 вольт 5. Почему расстояние от глаз до экрана монитора должно быть не менее 60-70 см? на этом расстоянии лучше всего видно из-за электромагнитного излучения из-за радиоактивного излучения ✔ чтобы не искривить позвоночник ✔ чтобы не утомлять глаза 6. Почему нельзя входить в кабинет информатики в верхней одежде и грязной обуви? ✔ можно испачкать пол и мебель учитель не переносит неаккуратности ✔ пыль и грязь засасываются в компьютеры уборщица не может часто убирать кабинет ✔ пыль вредит здоровью учеников и учителя 7. Сколько времени в день можно работать за компьютером ученикам средней и старшей школы? 20 минут ✔ 1,5 часа около 4 часов около 6 часов без ограничений 8. Какие требования должен выполнять ученик старше 14 лет, чтобы его можно было допускать к работе на компьютере? ✔ пройти инструктаж по технике безопасности ✔ расписаться в журнале инструктажа исправить все неудовлетворительные оценки принести разрешение от родителей ✔ соблюдать указания учителя 9. Что запрещается делать ученику в компьютерном классе? нажимать на клавиши ✔ отсоединять и подсоединять устройства компьютера ✔ включать напряжение сети использовать наушники ✔ разбирать и ремонтировать компьютеры 10. Что можно делать только с разрешения учителя? ✔ брать со стола учителя задание ✔ включать и выключать компьютер списывать на флэш-диск свои работы проверять флэш-диски антивирусами ✔ работать на чужом компьютере 11. Что делать, если не работает мышь или клавиатура? ✔ сообщить учителю отсоединить и присоединить снова разъём устройства перезагрузить компьютер выключить компьютер 12. Что делать при появлении запаха гари, дыма или странного звука из компьютера? ✔ сообщить учителю выключить компьютер перезагрузить компьютер продолжать работу попытаться устранить неисправность 13. Какие правила нужно выполнять при работе за компьютером? ✔ не работать вдвоём за одним компьютером ✔ линия взгляда должна быть направлена в центр экрана ✔ не класть тетради и учебники на клавиатуру ✔ не кататься на креслах по кабинету ✔ не перезагружать компьютер без разрешения 14. В каких случаях не следует выполнять работу на компьютере? ✔ если плохо себя чувствуешь если не подготовился к работе если не хочется ее выполнять ✔ если компьютер неисправен ✔ если компьютер выключен 15. Что делать, если компьютер, за которым вы обычно работаете, выключен? включить компьютер самостоятельно ✔ сообщить учителю о проблеме не выполнять работу вообще перейти за другой свободный компьютер выполнять работу вместе с кем-нибудь 16. Что делать при пожаре в компьютерном классе? ✔ под руководством учителя покинуть кабинет вызвать пожарную охрану использовать огнетушитель быстро выбежать из кабинета выключить компьютер и выйти из кабинета
const n=10; var min,i: integer; a: array[1..n] of integer; begin randomize; min:=11; for i:=1 to n do begin a[i]:=random(1,10); write (a[i],' '); // для наглядности. можно удалить if (i mod 2 =1) and (a[i]<min) then min:=a[i]; end; writeln; writeln ('min = ',min) end.
Пример: 5 4 7 8 6 2 10 4 9 9 min = 5
2 задача:
const n=10; var max,count,i: integer; a: array[1..n] of integer; begin randomize; max:=0; count:=0; for i:=1 to n do begin a[i]:=random(1,10); write (a[i],' '); // для наглядности. можно удалить if a[i]>max then max:=a[i]; end; for i:=1 to n do if max=a[i] then count:=count+1; writeln; writeln ('max = ',max); writeln ('count = ',count); end.
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой: