0+10+9+8+7+6+5=45. Удобнее таблицей решать такие задачи.
У меня что-то не грузится.........
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
Ответ:
110
Объяснение:
Просто сложите значения вписанные в нужные столбцы и строки. Пример: A - столбец, 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.