Ответ:
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.
Напишите эффективную программу, которая по двум данным натуральным числам 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.