написать программу которая будет спрашивать имя если имя ваше то приветствует если нет я вас не знаю..помогите очень срочно!
Answers & Comments
Adequate
Program asd; USES crt; var S,S1,a:string; BEGIN s:='Даша'; s1:='Дарья'; Writeln('Как Вас звать ?! '); Readln(a); If (s=a) or (s1=a) then Writeln('Дарья, здравствуй!') else writeln('Я Вас не знаю.'); END. P.S: Тебя же Даша зовут ? :)
Answers & Comments
USES crt;
var S,S1,a:string;
BEGIN
s:='Даша';
s1:='Дарья';
Writeln('Как Вас звать ?! ');
Readln(a);
If (s=a) or (s1=a) then
Writeln('Дарья, здравствуй!')
else
writeln('Я Вас не знаю.');
END.
P.S: Тебя же Даша зовут ? :)