fhderDgy
20.02.2021 13:58

Только те, кто хорошо знает программу Phyton. Надо составить программу


Только те, кто хорошо знает программу Phyton. Надо составить программу

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
svetysa95
22.02.2023 14:40

У маркірованих списках кожний абзац починається з жирної цятки. У нумерованих списках кожний абзац починається з виразу, який включає до себе номер або букву, а також роздільний знак, такий, як точка або дужки. Цифри у нумерованих списках оновлюються автоматично при додаванні або видаленні абзаців списку. Ви можете змінити тип стилю нумерації або маркерів, роздільний знак, атрибути шрифту та стилі символів, а також текст та величину відступів.

Ви не можете використовувати інструмент «Текст» для зміни маркерів або цифр у списку. Тим не менше, ви можете редагувати формат та відступи списків за до діалогового вікна «Маркери та нумерація», панелі «Абзац», розділу «Маркери та нумерація» діалогового вікна «Стилі абзаців» (якщо маркери або номери є частиною стилю).

0,0(0 оценок)
Ответ:
awdrg12345
10.04.2023 10:23
Program n1;
var
st: string;
i,c: longint;
b: boolean;
procedure numdig(st: string; x: char);
var i,k: longint;
t: string;
begin
t:='';
k := 0;
for i := 1 to length(st) do
begin
if st[i] = x then k := k + 1;
end;
if(k<>0) and (k<>1) then
begin
if(k=2) or (k=3) or (k=4) then t:='а';
writeln('цифра ',x,' повторяется ',k,' раз',t);
c:=c+1;
end
end;
begin
c:=0;
write('введите число: ');
read(i);
str(i, st);
numdig(st,'0');
numdig(st,'1');
numdig(st,'2');
numdig(st,'3');
numdig(st,'4');
numdig(st,'5');
numdig(st,'6');
numdig(st,'7');
numdig(st,'8');
numdig(st,'9');
if c=0 then writeln('цифры не повторяются');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота