Составить программу, запрашивающую при помощи операторов ввода-вывода :фамилия, имя, год рождения, номер домашнего телефона и номер сотового телефона ученика.После вычислений и очистки экрана выдаются следующие сообщения привет...

Составить программу, запрашивающую при помощи операторов ввода-вывода :фамилия, имя, год рождения, номер домашнего телефона и номер сотового телефона ученика.После вычислений и очистки экрана выдаются следующие сообщения приветствие с упоминанием введённого имени и номера его телефонов.
Гость
Ответ(ы) на вопрос:
Гость
Program pro;  uses crt;  type anketa=record fam:string[20];  im:string[12];  voz: 1..18;  at: real;  tel: integer;  end;  var i,n:integer; student: anketa; f:file of anketa; begin clrscr; assign(f,'C:\PABCWork.NET\St.dat'); reset(f); Write('Введите количество новых учащихся');  Readln(n); For i:=1 to n do Write('Введите Фамилию учащегося:');  Readln(student.fam); Write(f,student.fam,' '); Write('Введите Имя учащегося:'); Readln(student.im); Write(f,student.im,' '); Write('Введите Возраст учащегося:');  Readln(student.voz); Write(f,student.voz,' '); Write('Введите Средний бал аттестата учащегося:');  Readln(student.at); Write(f,student.at,' '); Write('Введите Телефон учащегося:'); Readln(student.tel); Writeln(f,student.tel); end; close(f); readkey; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы