Паскаль. Дан текст, составить множество цифр входящего в него. Прошу помогите мне срочно! Вот есть код, но нужно дописать после begin'a что-нибудь может еще что-то я не знаю.
var
d: set of 0..9;
s: String;
j: Integer;
begin
...
for j:=1 to Length(s) do if s[j] in ['0'..'9'] then Include(d,Ord(s[j])-Ord('0'));

end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.