Напишите наибольшее целое число Х, для которого истинно высказывание: НЕ (Х нечётное) И НЕ (Х>=6)
236
398
Ответы на вопрос:
Var k,i: integer; s,x: string; begin for i: =10 to 99 do s: =s+inttostr(i); writeln(s); write('введите число k: '); readln(k); x: =s[k]; writeln(k,'-я цифра: ',x) end.
Популярно: Информатика
-
Danich2008.11.2020 20:22
-
munisa33329.07.2022 02:48
-
сумбэльсофаникита11.07.2022 23:52
-
MariaVonlaar31.05.2022 11:58
-
диана234003.12.2022 07:21
-
kuryachelenaozmgnz25.02.2020 18:48
-
inatalia300718.05.2021 07:41
-
Derar30.03.2020 11:07
-
vinogradovanactaxa21.12.2022 23:37
-
FzdAngels29.06.2021 06:10