1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.

2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.

Question

Информатика

Камилька

18 апреля, 09:07

1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.

2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.

+2

Ответы (1)

Знаете ответ на вопрос?

Элюня · Answer 1

var i, i1, i2, count1, count2:integer;

begin

count1:=0;

count2:=0;

for i:=0 to 100 do

if (i mod 10=3) then inc (count1) ;

for i:=0 to 50 do

begin

i1:=i mod 10;

i2:=i div 10;

if (i1+i2=3) then inc (count2) ;

end;

writeln (count1) ;

writeln (count2) ;

readln;

end.

1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.

1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.

2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.