Задача просто решается в программе Pascal ABC. Пусть i - числа из промежутка [189980;205505]. В каждом цикле будем находить первые три цифры числа i, последние три цифры числа i, находить "перевертыш" последних трех цифр числа i, сравнивать первые три цифры числа i с "перевертышем" последних трех цифр числа i. Если они будут равны, значит количество счастливых билетов kol увеличиваем на 1. Программа будет иметь вид.
program zadacha;
uses crt;
var i, e, f, j, k, l, m, p, kol: integer;
begin
kol:=0; {начальное значение kol}
for i:=189980 to 205505 do
e:=i div 1000; {первые 3 цифры числа i}
j:=i mod 1000; {последние 3 цифры числа i}
f:=j mod 10; {3 цифра числа j}
k:=j div 100; {1 цифра числа j}
m:=j div 10; {первые 2 цифры числа j}
l:=m mod 10; {2 цифра числа j}
p:=f*100+l*10+k; {«перевертыш» числа j}
if e=p then kol:=kol+1; {сравнение первых трех цифр числа i и «перевертыша» числа j }
end;
writeln ('kol=',kol); {вывод результата на экран}
end.
После выполнения программы получаем ответ kol = 17. Значит, среди билетов с данными номерами 17 билетов имеют счастливый номер.
Ответ: б) 17
Помогите решить -x^2=0
Решите неравенство и изобразите множество его решений на координатной прямой |x-7| > 0
Разность оснований равнобедренной трапеции равна 14 см, а диагональ является биссектрисой тупого угла. найти площадь
Найди периметр и площадь прямоугольника если его длина 3 см,а ширина 2 см
Длинна первого цветника -4м6дм,а ширина -2м. длинна 2 цветника на1м 4дм больше,а ширинана 3дм меньше длинны и ширины
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.