wariox75
Прикрепленное изображение относится к 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.
0 votes Thanks 0
wariox75
Жалко редактировать нельзя, код спутался... Найди цифру "3)" в коде, это будет начало третьего задания.
Answers & Comments
А вот код программы:
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.