Ответы на вопрос:
На pascal abc var i: integer; a: string; begin readln(a); i: =3; while i< =length(a) do begin writeln(a[i]); i+=3; end; end.
Популярно: Информатика
-
Sasha2007ad13.08.2022 01:33
-
Верче0223.11.2020 11:55
-
Sofia240627.02.2022 07:52
-
Spektrum109.01.2022 00:16
-
катяlove419.08.2022 05:26
-
aaaaaaaahhh15.06.2022 21:24
-
marina1976130.08.2022 13:42
-
Prostoy2303.03.2022 01:31
-
alanka28060618.05.2021 10:05
-
dinbili403.02.2023 18:35