• Составить программу на языке Паскаль для вычисления суммы всех четных чисел на интервале от 1 до н.
    (9 задание)

    question img

Ответы 1

  • Ответ:

    Объяснение:

    var

    i,n,s:integer;

    begin

    write('Введите n=');

    readln(n);

    s:=0;

    while i<=n do

    begin

    if i mod 2=0 then s:=s+i;

    i:=i+1;

    end;

    writeln('s=',s);

    readln;

    end.

    ===================================

    И чуть короче с циклом for

    var

    i,n,s:integer;

    begin

    write('Введите n=');

    readln(n);

    s:=0;

    for i:=1 to n do

    if i mod 2=0 then s:=s+i;

    writeln('s=',s);

    readln;

    end.

    • Автор:

      rileypjlt
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years