Опубликовано 4 года назад по предмету Информатика от VVira

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

Ответ

Ответ дан ИнформатикБУ

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.
1. Ответ
  
  Ответ дан VVira
  
  Можно вопрос: а что обозначает inc и longint ?
2. Ответ
  
  Ответ дан APALoff
  
  procedure Inc(var i: integer; n: integer);
  Увеличивает значение переменной i на n
3. Ответ
  
  Ответ дан APALoff
  
  Longint - это такой целочисленный тип (-2147483648..2147483647)
4. Ответ
  
  Ответ дан VVira
  
  спасибо!
Ответ

Ответ дан APALoff

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.

Самые новые вопросы

Другие предметы - 3 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 3 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 3 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 3 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 3 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают