Question

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

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.