Регистрация
МаринаКот365000
29.01.2021 21:05
Информатика
Есть ответ 👍

Паскаль. дан текст, составить множество цифр входящего в него. прошу мне ! вот есть код, но нужно дописать после 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.

157
438
Посмотреть ответы 2

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

NataliGuk
NataliGuk
4,7(74 оценок)
Var d: set of 0..9; s: string; j: integer; begin writeln('введите текст: '); readln(s); d: =[]; for j: =1 to length(s) do   if s[j] in ['0'..'9'] then include(d,ord(s[j])-ord('0')); for j: =0 to 9 do   if j in d then write(j: 2); writeln; end. пример: введите текст: первый парад в честь победы в великой отечественной войне состоялся 24 июня 1945 г.   1 2 4 5 9
Максим228prs
Максим228prs
4,5(62 оценок)
163/2=81 остаток 1 81/2=40 остаток    1 40/2=20 остатко  0 20/2=10 остаток  0 10/2=5 остаток    0 5/2=4 остаток    1 4/2=2 остатко  0 2/2=0               1 записываем остатки в обратном порядке и получаем

Популярно: Информатика