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

program zz1;

var i, k, i1, i2:integer;

begin

for i:=1 to 100 do

if i mod 10 = 3 then k:=k + 1; / / считаем числа заканчивающиеся на 3

writeln (' количество чисел из диапазона заканчивающихся 3 = ', k); / / выводим первый ответ

k:=0;

for i:=0 to 50 do

begin

i1:=i div 10; / / получаем первую цифру

i2:=i mod 10; / / получаем вторую цифру

if i1 + i2 = 3 then k:=k + 1; / / проверяем сумму цифр и если она равна трем, то считаем

end;

writeln (' количество чисел из диапазона сумма цифр у которых равна 3 = ', k); / / выводим второй ответ

end.