ИКТ - Паскаль!!! Даю 35 баллов!!!
___________________________
Мы начали проходить тему - циклы.
Задача: вводятся 2 числа A и B (B>A). Посчитать сумму квадратов четных чисел от A до B.
Ответы
Ответ дал:
0
var
a, b, i: integer;
s: longint;
begin
readln(a);
readln(b);
s:=0;
for i:=a to b do
if i mod 2 = 0 then
inc(s, i*i);
writeln(s);
end.
a, b, i: integer;
s: longint;
begin
readln(a);
readln(b);
s:=0;
for i:=a to b do
if i mod 2 = 0 then
inc(s, i*i);
writeln(s);
end.
Ответ дал:
0
Можно вопрос: а что обозначает inc и longint ?
Ответ дал:
0
procedure Inc(var i: integer; n: integer);
Увеличивает значение переменной i на n
Увеличивает значение переменной i на n
Ответ дал:
0
Longint - это такой целочисленный тип (-2147483648..2147483647)
Ответ дал:
0
спасибо!
Ответ дал:
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
10 лет назад
10 лет назад