Вопрос школьника по предмету Информатика
Паскаль!
Задано слово длины 3n(n- натуральное число). Удалить в нем последнюю треть слова, а оставшиеся две трети перевернуть.
Ответ учителя по предмету Информатика
var s,s1:string; n,i:integer;
begin
writeln(‘Введите слово длиной 3n:’);
readln(s);
n:=length(s) div 3;
delete(s,2*n+1,n);
s1:=»;
for i:=1 to 2*n do s1:=s[i]+s1;
writeln(s1);
end.
Пример:
Введите слово длиной 3n:
programma
argorp
Похожие вопросы от пользователей
Варианты ответов: 1) 100 Вт 2)10 Вт 3) 1000 Вт 4) 1 Вт