На pascal. с клавиатуры вводится натуральное чётное - вопрос №84657881 от buh64 28.01.2022 01:52

Question

Информатика: На pascal. с клавиатуры вводится натуральное чётное число n, не превосходящее 180. определите n-ую цифру в ряду: . в данном ряду подряд выписаны все двузначные числа. на экран вывести одно число - искомую цифру. ​

buh64 · Answer

program raf105; var  n, number: integer; begin  write( Введите чётное n: );  readln(n);  number:= (n-2) div 2 mod 10;  writeln( Искомая цифра: ,number); end.PascalABC...