Нет перегруженной программы с такими типами параметров. Вот код: //FirstProgramm type Human=class public Name: string; Age: string; Height: string; end; var H:Human; begin h:=new Human; write('Привет, как тебя зовут:'); readln(h.Name); write('Здорово ' , h.Name,', а скажи-ка сколько тебе лет:'); readln(h.Age); if (h.Age>18) then writeln('Здорово ты уже совершеннолетний!') else writeln('Ой! Да ты ещё совсем мал.'); write('Окей, а какой же твой рост (см) :'); readln(h.Height); writeln('Вот результаты. Твоё имя - ', h.Name , ', тебе ' , h.Age ,' лет, а рост - ', h.Height ,'см'); end.
//SecondProgram type Animal=class public Name: string; Age: integer; end; var A: Animal; begin A:= new Animal; write('Привет! Как зовут твоего питомца? '); readln(A.Name); write('А сколько ему лет? '); readln(A.Age);
writeln('Так, значит, у твоего питомца имя ', A.Name, ' и ему ', A.Age, ' лет.'); end.
Как видите, во второй программе используются другие типы параметров (integer вместо string), поэтому первая программа не перегружена.
//SecondProgram
type
Animal=class
public
Name: string;
Age: integer;
end;
var
A: Animal;
begin
A:= new Animal;
write('Привет! Как зовут твоего питомца? ');
readln(A.Name);
write('А сколько ему лет? ');
readln(A.Age);
writeln('Так, значит, у твоего питомца имя ', A.Name, ' и ему ', A.Age, ' лет.');
end.
Как видите, во второй программе используются другие типы параметров (integer вместо string), поэтому первая программа не перегружена.