Составить программу, запрашивающую при помощи операторов ввода-вывода :фамилия, имя, год рождения, номер домашнего телефона и номер сотового телефона ученика.После вычислений и очистки экрана выдаются следующие сообщения привет...
Составить программу, запрашивающую при помощи операторов ввода-вывода :фамилия, имя, год рождения, номер домашнего телефона и номер сотового телефона ученика.После вычислений и очистки экрана выдаются следующие сообщения приветствие с упоминанием введённого имени и номера его телефонов.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы