1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чиселот A до B...

Question

1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел
от A до B включительно.
2)Даны натуральные числа от A до B(A3)Ангелина узнав, что Боря занимается спортом, решила не отставать. Она каждый день делала от 3 до 5 упражнений на икры (вводится во время выполнения программы) и 5 упражнений на пресс. Сколько упражнений она сделала за 5, 10 и 13 дней. (количество упражнений на икры на каждый день вводится отдельно)

Answer 1

Program task1;
var  i, a, b, sum :integer;
begin
  readln(a,b);  sum:= 0;  for i:= a to b do    sum:= sum + sqr(i);  writeln(sum);
end.

program task2;
var  i, a, b, p :integer;
begin
  readln(a,b);  p:= 1;  for i:= a to b do    if (i mod 3 = 0) and (i mod 4 <> 0) then      p:= p * i;  writeln(p);
end.

program task3;
var  i, exercise, sum :integer;
begin
  for i:= 1 to 13 do  begin    readln(exercise);    sum:= sum + 5 + exercise;    if i = 5 then      writeln(sum);    if i = 10 then      writeln(sum);  end;  writeln(sum);
end.

Comments

Спасибо огромное,я вам очень при очень благодарна)