Напишите эффективную программу, которая по двум данным натуральным числам m и n, не превосходящим 30000, подсчитывает количество натуральных чисел с последней цифрой 0 на отрезке [m, n] (включая концы отрезка) программа получает на вход два натуральных числа m и n, при этом гарантируется, что 1≤m≤n≤30000. программа должна вывести одно число: количество натуральных чисел с последней цифрой 0 на отрезке [m, n].

program pr1; uses crt; const t=30000; var mas: array[1..t] of integer; i,n,m,l: integer; beginclrscr; for i: =1 to t do mas[i]: =i; writeln('введите n и m'); readln(n,m); l: =0; for i: =n to m do if mas[i] mod 10=0 then l: =l+1; writeln(l); end.

основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end.