Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения

@P-980 · Регистрация: 13.12.2015

Author24 — интернет-сервис помощи студентам

Распечатать список студентов, фамилии которых начинаются с буквы Б, и их даты рождения.

Pascal

I: INTEGER;
begin
  for I := 1 TO N DO 
    with STUDENT[I] DO
    begin
      writeln;
      begin
        begin
          WRITE('введи фио >');
          READ(fam);
        end;
        begin
          writeln(' дату рождения');
          read(godr);
          readln;
        end;
      end;  
    end;
  for I := 1 TO N DO 
    with STUDENT[I] Do
      if fam[1] = 'Б' then
        writeln(fam, godr);
end.

@volvo · 10.02.2016, 19:31

ReadLn используй, а не Read

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	10.02.2016, 19:31	2
	ReadLn используй, а не Read 1

Опции темы