Помогите по информатике, ничего не понимаю

Question

Помогите по информатике, ничего не понимаю

---

Comments

А на уроках учителя ничего не объясняют?)

---

Хотя мне подобное объясняли, ничего не понял xd

---

нам не объяснили к сожалению

---

смешно =D

---

ну я рада, что у тебя поднялось настроение, но не можешь помочь, нефиг писать

---

стерва, фу

---

бывает

Answer 1

Прикрепленное изображение относится к 2 заданию.
А вот код программы:
Program If12;VarA,B,C:Real;BeginWriteLn('Введите числa A,B и C: ');ReadLn(A,B,C);If (A < B) And (A < C) ThenWriteLn('Min = ',A)ElseIf (B < A) And (B < C) ThenWriteLn('Min = ',B)ElseWriteLn('Min = ',C); End.3) Код:
uses crt;var n,i,s:integer;beginwrite('n = ');read(n);s:=0;for i:=1 to n dobeginif i mod 2<>0 thens:=s+i;end;write('s = ',s);end.

Comments

Жалко редактировать нельзя, код спутался... Найди цифру "3)" в коде, это будет начало третьего задания.