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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.