Создать программу в паскале ввода с клавиатуры анкетных данных (ФИО, дата рождения, место проживания, место работы) и их вывода в текстовый документ. То есть, программа поочередно предлагает ввести данные и после их ввода появляется текстовый файл с введенными данными
Создать программу в паскале ввода с клавиатуры анкетных данных (ФИО, дата рождения, место проживания, место работы) и их вывода в текстовый документ. То есть, программа поочередно предлагает ввести данные и после их ввода появляется текстовый файл с введенными данными
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Anketa;
var
st: String;
f: Text;
begin
Assign(f,'anketa.txt');
Rewrite(f);
Write('Введите ваши ФИО: ');
Readln(st);
Writeln(f, 'ФИО: ',st);
Write('Введите вашу дату рождения: ');
Readln(st);
Writeln(f, 'Дата рождения: ',st);
Write('Введите ваше место проживания: ');
Readln(st);
Writeln(f, 'Адрес проживания: ',st);
Write('Введите ваше метсо работы: ');
Readln(st);
Writeln(f, 'Место работы: ',st);
Close(f);
Writeln('Спасибо, ваши данные были сохранены успешно!');
Readln;
end.