даны два числа a и b (a<b).вывести на экран все четные числа от a до b, а также их количество. помогите пожалуйста. программа в паскале
Ответы
Ответ дал:
0
var a,b,i,k: integer;
begin
read(a,b);
k:=0;
for i:=a to b do begin
if i mod 2=0 then k:=k+1;
if i mod 2=0 then writeln ('i=',i);
end;
writeln ('k=',k);
end.
begin
read(a,b);
k:=0;
for i:=a to b do begin
if i mod 2=0 then k:=k+1;
if i mod 2=0 then writeln ('i=',i);
end;
writeln ('k=',k);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад