Эмм.. Pascal:
////////////////////
var
a, b, c:String;
begin
a := Я очень хорошая вычислительная машина;
b := Я хороший робот;
writeln(Введите текст , a, и получите текст, b);
readln(c);
if a = c then
begin
writeln(b);
end;
end.
Ответ 2:
var
b: array [1..4] of String[9] = (ДОНОР, ЖЕЗЛ, КОЛЕНО, КРОКОДИЛ);
a, c:String;
i:Integer;
begin
a := ЖЕЛЕЗНОДОРОЖНИК;
writeln(Введите текст , a, и получите слова);
for i:= 1 to 4 do
begin
writeln(b[i]);
end;
readln(c);
if a = c then
begin
for i:= 1 to 4 do
begin
writeln(b[i]);
end;
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.