Var
a,b,c,d: string;
f: text;
begin
assign (f,'c: \1.txt');
append (f);
rewrite (f);
write ('новый пользователь: ');
read (f,a);
write ('дата рождения: ');
read (f,b);
c: =2019-b;
d: =18-c;
if d< =0 then write ('0') else write ('до вашего совершеннолетия: ',d);
close (f);
assign (f,'c: \1.txt');
rewrite (f);
writeln (f,a);
writeln (f,b);
writeln (f,d);
close (f);
end.
пишет нельзя преобразовать тип string к integer в 12 строке
!

197

222

Ответы на вопрос:

4,4(86 оценок)

В 10,5 Мб 11010048 байт. И если, 1 символ весит 1 байт, то в тексте 11010048 символов.

ответ: 11010048 символов.

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.