Запросите и введите с клавиатуры имя пользователя, имя его друга(подруги) и суть отношений между ними(дружба, любовь).
Напечатайте на экране:
<имя 1>+<имя 2>=<отношения>
помогите на паскале
Ответы
Ответ дал:
0
Program Question;
var
nameF, nameS, rels :string;
Begin
Write('Введите первое имя: ');
Readln(nameF);
Write('Введите второе имя: ');
Readln(nameS);
Write('Введите отношения: ');
Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End
var
nameF, nameS, rels :string;
Begin
Write('Введите первое имя: ');
Readln(nameF);
Write('Введите второе имя: ');
Readln(nameS);
Write('Введите отношения: ');
Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад