Автор Привет задал вопрос в разделе Другие языки и технологии
помогите пожалуйста и получил лучший ответ
Ответ от Thesn[гуру]
var
i, k, s: integer;
begin
{---1---}
writeln('Введите число k');
readln(k);
for i := 1 to k do
begin
if (i mod 2 <> 0) then s := s + i;
end;
writeln('Сумма нечетных чисел от 1 до ', k, ' = ', s);
{---2---}
s := 0;
for i := 5 to 55 do
begin
if (i mod 2 <> 0) then s := s + i;
end;
writeln('Сумма нечетных чисел от 5 до 55 = ', s);
end.
Ответ от Георгий Зотиков[гуру]
используй функцию mod
используй функцию mod
Ответ от Ёемен Боксин[гуру]
Вы совсем тупые? Может быть вы еще умножать через сложение будете? i := 5; while (i <= 55) do begin sum := sum + i; i := i + 2; end;
Вы совсем тупые? Может быть вы еще умножать через сложение будете? i := 5; while (i <= 55) do begin sum := sum + i; i := i + 2; end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: помогите пожалуйста