program Project1;
type tosoba = record
imie: string[20];
nazwisko: string[20];
rok_u: word;
id: word;
var
osoba.tosoba;
begin
osoba.imie:='imie'........;
osoba.nazwisko:='naz'........;
osoba.rok_u:=........;
end.
Witam,
Musze uzupełnić typy rekordowe.W miejscu kropek -.... nie wiem co wpisać.
W polu** imie** program ma wypisać** 'imie'** zakończone losową liczbą z przedziału od 0-100.
W polu nazwisko program ma wypisać naz zakończone losową liczbą z przedziału od 0-100.
Wykorzystać do tego funkcje str.
W polu roku_u program ma wypisać losową liczbe od 1900 do 2000.