На pascal. с клавиатуры вводится натуральное чётное число n, не превосходящее 180. определите n-ую цифру в ряду: . в данном ряду подряд выписаны все двузначные числа. на экран вывести одно число - искомую цифру.
253
295
Ответы на вопрос:
program raf105;
var
n, number: integer;
begin
write('введите чётное n: ');
readln(n);
number: = (n-2) div 2 mod 10;
writeln('искомая цифра: ',number);
end.
pascalabcПопулярно: Информатика
-
Legend111111117.08.2021 12:35
-
Лиопольд11.08.2020 08:03
-
plagiatik626.05.2020 02:43
-
reshetnicova7429.03.2021 02:20
-
UlyaYouth11131.05.2020 15:19
-
Djunisova21.11.2021 21:37
-
Додоша1826.03.2021 19:55
-
olgakazakova20oy0u8c19.04.2022 01:55
-
gulbakhar11.06.2020 21:10
-
Marrrrrrk12.04.2022 20:52