Посчитать количество чисел, принадлежащих промежутку [a,b] и сумму чисел, стоящих на местах, кратных 3

1

Ответы и объяснения

2013-01-24T13:38:32+00:00

Program Pr1;
uses crt;
var a,b,c:integer;
Begin
clrscr;
c:=0;
writeln('Vvedite a i b');
readln(a,b);
while a<=b do begin
if a mod 3=0 then c:=c+1;
a:=a+1;
end;
writeln(c);
end.