ши сум ду

Ответ от 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.