Задача по PASCAl. На стоки
Добавлено: 07 ноя 2008, 16:47
1.Даны три фамилии . определить есть ли среди них фамилии начинающиеся на букву "М" . Вывести найденные фамилии. Если таковых нет вывести соответствующее сообщение.
Код: Выделить всё
program Fnames;
uses crt;
var fam1,fam2,fam3,Mfams:string;
begin
clrscr;
writeln('Введите три фамилии:');
readln(fam1);
readln(fam2);
readln(fam3);
if fam1[1]='M' then Mfams:=Mfams+fam1+', ';
if fam2[1]='M' then Mfams:=Mfams+fam+', ';
if fam3[1]='M' then Mfams:=Mfams+fam3;
if Mfams[0]=0 then writeln('Ни одна из фамилий ние начинается на М!')
else writeln('На М начинаются фамилии: ',Mfams);
end.