• ИКТ - Паскаль!!! Даю 35 баллов!!!
    ___________________________
    Мы начали проходить тему - циклы.
    Задача: вводятся 2 числа A и B (B>A). Посчитать сумму квадратов четных чисел от A до B.

Ответы 6

  • Можно вопрос: а что обозначает inc и longint ?
    • Автор:

      skyler4
    • 6 лет назад
    • 0
  • procedure Inc(var i: integer; n: integer); Увеличивает значение переменной i на n
    • Автор:

      powder
    • 6 лет назад
    • 0
  • Longint - это такой целочисленный тип (-2147483648..2147483647)
    • Автор:

      roy9x1d
    • 6 лет назад
    • 0
  • спасибо!
    • Автор:

      autumn84
    • 6 лет назад
    • 0
  • vara, b, i: integer;s: longint;beginreadln(a);readln(b);s:=0;for i:=a to b doif i mod 2 = 0 theninc(s, i*i);writeln(s);end.
    • Автор:

      guccictyf
    • 6 лет назад
    • 0
  • Var a,b,s : Integer;Begin  Readln(a,b);  s:=0;  If Odd(a) then Inc(a);  While a<=b do  Begin   s:=s+sqr(a);   Inc(a,2);  end;  Writeln('Result: ',s);end.
    • Автор:

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

Войти через Google

или

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

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

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