Что не так в коде (pascal abc) type human=class public name: string; age: integer; height: integer; end; var h: human; begin h: =new human; writeln('! я хочу немного узнать о тебе. '); write('как тебя зовут: '); readln(h.name); write('прекрасно, ',h.name, ',а теперь скажи скоко тебе лет? : '); readln(h.age); if (h.age> 17) then writeln('здорово ты уже совершенно летний! '); else writeln('о ты мальчик! '); write('а скажи ка какой у тебя рост: '); readln(h.height); writeln(); writeln('ну вот и все. мы собрали '); writeln('тебя зову ','h.name); writeln('тебе ','age.); writeln('твой рост: ','h.height,'см'); writeln(); writeln(', 'h.name,'.до новых встреч! '); end.

kizzka    2   08.07.2019 02:30    1