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

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); // выводим 2-ой ответ

end.