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

Question

Информатика

Софоний

18 июля, 12:52

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

+5

Ответы (1)

Знаете ответ?

Емельяныч · Answer 1

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.