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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.