Question

Написать в паскале программу: дата рождения, год и номер школы.

Answer 1

//Формулировка хромает на обе ноги
//Pascal ABC.NET v3.1 сборка 1172

Type
 re=record
 date:string;
 year:string;
 sch:string;
end;

Var
 s:re;
begin
 write('Введите дату рождения:');readln(s.date);
 write('Введите год:');readln(s.year);
 write('Введите номер школы:');readln(s.sch);
 write(s.date,' ',s.year,' ',s.sch);
end.

Пример ввода:

Введите дату рождения:01.02
Введите год:1998
Введите номер школы:56

Пример вывода:

01.02 1998 56