Завдання:Ввести прізвище, ім'я,по батькові як одне дане строкового типу. 1)Чи...

Question

Завдання:Ввести прізвище, ім'я,по батькові як одне дане строкового типу.
1)Чи починається хоча б одне слово з букви 'М'??
Будь-ласка Pasccal

Comments

Давай я теб на с++ напишу,а ты на паскаль переведеш?и все обясню что как означает ок?

---

а на паскале неможеш ??

---

ну попробую

---

щяс жди

---

пожалуста очень нада

---

а можеш a,b,c в одну сменую S и так зделать ?

Answer 1

Var a,b,c,m:boolean;
begin
m:=m;
readln(m);
writeln('vvedit prizvishe');
readln(a);
writeln('vvedit imia');
readln(b);
writeln('vvedit pobatkovi');
readln(c);
If ((a=m) or (b=m)) or (c=m); then writeln('Yes')
Else writeln('no');
end.

Comments

а можеш a,b,c в одну сменую S и так зделать ?