Написать программу, которая заданное слово печатает, начиная с последней буквы
252
368
Ответы на вопрос:
program slovo; var s: string; i: integer; beginwriteln('введите слово'); readln(s); for i: =length(s) downto 1do beginwrite(s[i]); end; end.
Var x1,x2,y1,y2: real; begin write('x1 = '); readln(x1); write('y1 = '); readln(y1); write('x2 = '); readln(x2); write('y2 = '); readln(y2); writeln('(',x1+(x2-x1)/2,',',y2+(y1-y2)/2,')') end.
Популярно: Информатика
-
AgentMega27.04.2023 04:08
-
Bamper105.03.2020 02:41
-
arina27031601.05.2022 00:49
-
arturlatipov21.05.2023 21:04
-
PaFaS12331.12.2021 11:44
-
мсоь18.03.2023 01:36
-
Qwertyuio11107.09.2022 08:08
-
kuralova20022.03.2022 08:42
-
ivanovmax15.10.2021 09:27
-
minari321.03.2020 01:03