Помогите решить,часть задачи есть!
Известны данные от 25-ти учениках класса: фамилии, имя, отчество, адреса и домашние телефоны, если он есть. Вывести на экран, имя и адрес ученика у которого нет домашнего телефона.
Можно на паскале или на дельфи
Можно на паскале или на дельфи
Код:
var
fam,ima,otch,adres,telefon:string;
BEGIN
writeln('Введите фамилию.');
readln(fam);
writeln('Введите имя.');
readln(ima);
writeln('Введите отчество.');
readln(otch);
writeln('Введите адрес.');
readln(adres);
writeln('Введите домашний телефон');
readln(telefon);
writeln('нет домашнего телефона ',fam,' ',ima[1],'.',otch[1],'.',adres[1],'.',telefon[1],'.');
readln;
END.
fam,ima,otch,adres,telefon:string;
BEGIN
writeln('Введите фамилию.');
readln(fam);
writeln('Введите имя.');
readln(ima);
writeln('Введите отчество.');
readln(otch);
writeln('Введите адрес.');
readln(adres);
writeln('Введите домашний телефон');
readln(telefon);
writeln('нет домашнего телефона ',fam,' ',ima[1],'.',otch[1],'.',adres[1],'.',telefon[1],'.');
readln;
END.
1. Код надо форматировать в сообщениях.
2. Не надо новые темы заводить по тем-же вопросам.
3. Что у тебя делает эта строка:
4. Чем не устроило решение через запись (record) из прошлой темы?
2. Не надо новые темы заводить по тем-же вопросам.
3. Что у тебя делает эта строка:
Код:
writeln('нет домашнего телефона ',fam,' ',ima[1],'.',otch[1],'.',adres[1],'.',telefon[1],'.');