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

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

Желая мне подобное изъясняли, ничего не понял xd

нам не растолковали к сожалению

забавно =D

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

стерва, фу

посещает

Прикрепленное изображение относится к 2 заданию.
А вот код программки:
Program If12;VarA,B,C:Real;BeginWriteLn('Введите числa A,B и C: ');ReadLn(A,B,C);If (A lt; B) And (A lt; C) ThenWriteLn('Min = ',A)ElseIf (B lt; A) And (B lt; 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 2lt;gt;0 thens:=s+i;end;write('s = ',s);end.