Предмет: Информатика,
автор: tulipovt
8 класс
Сосативиьь задачу язык паскаль:
Найти сумму нечётных чисел от m до n.
БЫСТРЕЕ МОЛЮ
tulipovt:
while
Ответы
Автор ответа:
0
Pascal
var
m,n,i,s : integer;
begin
writeln('Введите m и n (m<n):');
readln(m, n);
s:=0;
for i:=m to n do
if i mod 2 <> 0 then
s:=s+i;
writeln('Сумма нечётных чисел =',s);
end.
---------------------------через while---------------------
var
m,n,i,s : integer;
begin
writeln('Введите m и n (m<n):');
readln(m, n);
s:=0;
while m <=n do begin
if m mod 2 <> 0 then
s:=s+m;
inc(m);
end;
writeln('Сумма нечётных чисел =',s);
end.
Приложения:

Похожие вопросы
Предмет: Қазақ тiлi,
автор: эльзатортик
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: а3л4и5
Предмет: Математика,
автор: alenapokusaeva1981
Предмет: Литература,
автор: sooska