//Формулировка хромает на обе ноги //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
1 votes Thanks 1
askerus
Я сформулировал, так как мне написал учитель, спасибо)
Answers & Comments
Verified answer
//Формулировка хромает на обе ноги//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