Question

Составить программу, которая превращает слово «систематика» в слово «математика» и «тема». Вывести эти слова в столбик.

Answer 1

//Язык Pascal

Program Test;

Var slovo: string;

Begin

Write('Введите слово: ');
Readln(slovo);
Writeln();

if (slovo = 'систематика') then
begin
Writeln('математика');
Writeln('тема');
end

else
Writeln('Слово не обнаружено...');

End.