1)Даны два целых числа A и B (A меньше B). Найти сумму квадратов всех целых чиселот A до B включительно.2)Даны натуральные числа от A до B(A меньше B). Найти произведение тех из них, которые делятся на 3 и не делятся на 4.3...
1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел
от A до B включительно.
2)Даны натуральные числа от A до B(A
Гость
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы