Question

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

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.