Написать программу, вычисляющую сумму первых 10 нечётных целых чисел. Заранее спасибо.

Question

Написать программу, вычисляющую сумму первых 10 нечётных целых чисел. Заранее спасибо.

Comments

Program Pr(номер или название проги);

---

ща кароч

Answer 1

Program prog;
var a,i,s:integer;
begin
s:=0;
writeln('Укажите начало отрезка ');
readln(a);
for i:=a to a+10 do begin
if a mod 2 = 1 then
s:=a+s;
end;
write('Сумма нечетных 10 элементов начиная с ',a,' равна ',s);
end.

Comments

я тут опечатку допустил в строке

---

if a mod 1 = 0 then
замените строку на if a mod 2 = 1 then