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

Question

Информатика

Готя

30 декабря, 18:52

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

+4

Ответы (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.