даны два целых числа A и B(вводятся с клавиатуры).Найти и вывести сумму четных чисел от A до B-это тема паскаля очень сложная помогите кто-нибудь пожалуйста.
Answers & Comments
furbo
Uses crt; var a,b,i,k: longint; begin writeln('введите 2 числа'); read (a,b); k:=0; for i:=a to b do if i mod 2 = 0 then k:=k+i; writeln(сумма четных чисел от ', a,' до ', b,' равна ',k) end.
2 votes Thanks 2
lynagbhj1996
спасибо большое?я уж очень надеюсь,что моя учительница по информатике примет эту работу.
Answers & Comments
var
a,b,i,k: longint;
begin
writeln('введите 2 числа');
read (a,b);
k:=0;
for i:=a to b do
if i mod 2 = 0 then
k:=k+i;
writeln(сумма четных чисел от ', a,' до ', b,' равна ',k)
end.