3. Бөлуді орындаңыз.
a = 89; b = 17
1) х=a/b 2) х=a//b
3) x=a%b
4. Адам жасын сұратын программа құрыңыз, егер жасы толық 18 және 18-ден жоғары болса,
«Керемет! Сіз көлік айдай аласыз», ал керісінше жағдайда – «Өкінішке орай Сізге көлік айдауға әлі
ерте» мәтінін хабарлайды.
5. Енгізілген санның үш таңбалы екенін анықтаңыз.​

1) «≈» - вот так, только с одной линией обозначено положение переключателя мультиметра для измерения постоянного напряжения.

2) С прямой линией либо сочетание букв "DCA" – это показатель постоянного тока (амперы).

3) ACV либо V с волной указывает, что измеряется переменное напряжение.

4) А с волной указывает на то, что мультиметр измеряет силу переменного тока

5) Ω

6) DC - постоянный ток

7) АС - переменный ток

8) А - в амперах

9) В - вольт

10) Ω - Ом

11) Постоянный ток — электрический ток, который с течением времени не изменяется по величине и направлению, а переменный ток изменяется.

12) Короткое замыка́ние - электрическое соединение двух точек электрической цепи с различными значениями потенциала, не предусмотренное конструкцией устройства и нарушающее его нормальную работу.

13) Предохранитель - предназначен для отключения защищаемой цепи размыканием или разрушением специально предусмотренных для этого токоведущих частей под действием тока, превышающего определённое значение.

14) Резистор — пассивный элемент электрических цепей, обладающий определённым или переменным значением электрического сопротивления, предназначенный для линейного преобразования силы тока в напряжение и напряжения в силу тока, ограничения тока, поглощения электрической энергии.

15) и 16) прикреплю картинку :)

17) 2кОм = 2000Ом

19) формулой Ома: I = U/R

20) 10А

21) 2В

22) 2000Ом = 2 килоом

22) 2000мА = 2 ампер

23) 2,2 Мегаом =220 килоом

24) 2000 килоом = 2 мегаом

25) 0.5 вольт = 500 милливольт

Var     
SurName : Array [1..30] of String;       
Mark  : Array [1..30] of Real;         
Cand    : Array [1..30] of String;       
NPupil, K : Integer;                                                      

BEGIN  
Write('Сколько всего учеников ? '); 
ReadLn(NPupil); 
WriteLn('Введите фамилии и оценки учеников :'); 
For var i := 1 to NPupil do   
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);         
Write('     Оценка - ');    
ReadLn(Mark[i]);   
end; WriteLn; 
K:=0;  
For var i := 1 to NPupil do   
If Mark[i]=2  then     
begin
K:=K+1;
Cand[K] := SurName[i]
end; 
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')   
else 
begin
WriteLn('ДВОЕЧНИКИ :');           
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);     
end;
END.