Предмет: Информатика,
автор: Аноним
Найти сумму n первых нечётных натуральных чисел.(Паскаль)
Ответы
Автор ответа:
0
Var
n,i,a:integer;
Begin
Write('Введите число ');
Readln(n);
if n>=1 then Begin write('Сумма нечётных чисел от 1 до ',n,' = ');
for i:= 1 to n do
if ((i mod 2) <> 0) then a:=a+i;
write(a);
End else write('Введено число меньше единицы');
End.
n,i,a:integer;
Begin
Write('Введите число ');
Readln(n);
if n>=1 then Begin write('Сумма нечётных чисел от 1 до ',n,' = ');
for i:= 1 to n do
if ((i mod 2) <> 0) then a:=a+i;
write(a);
End else write('Введено число меньше единицы');
End.
Автор ответа:
0
Спасибо огромное)))
Похожие вопросы
Предмет: Математика,
автор: nadyaxelilova
Предмет: Алгебра,
автор: Natanata5
Предмет: Математика,
автор: coradmila
Предмет: Физика,
автор: irenaf
Предмет: Математика,
автор: almiramamonova