Voob 25 октября 2019 в 06:37
Составьте программу которая из слова ТЕСТИРОВАНИЕ преобразует слово РИСОВАНИЕ
Составьте программу которая из слова ТЕСТИРОВАНИЕ преобразует слово РИСОВАНИЕ
Var
s: string;
begin
s:=ТЕСТИРОВАНИЕ;
writeln(s[6]+s[5]+s[3]+s[7]+s[8]+s[9]+s[10]+s[11]+s[12]);
end.
s: string;
begin
s:=ТЕСТИРОВАНИЕ;
writeln(s[6]+s[5]+s[3]+s[7]+s[8]+s[9]+s[10]+s[11]+s[12]);
end.
Для комментирования необходимо зарегистрироваться на сайте