Информатика: помагите это тест иинворматика упражнение 2

simsnothave

28.01.2023 12:25

Информатика

Есть ответ 👍

помагите это тест иинворматика упражнение 2

133

259

Посмотреть ответы 1

Ответы на вопрос:

ViShEnKalкрасная

Информатика

4,4(45 оценок)

Program n1; var s: string; i,n: byte; c: char; begin write('введите строку: '); readln(s); n : = length(s) div 2; for i : = 1 to n do begin c : = s[i]; s[i] : = s[length(s)-i+1]; s[length(s)-i+1] : = c; end; writeln('перевернутая строка: ',s); readln end.