составьте программу которая удаляет из слова "комар" символы "ар"

ответ:

program komar;

var

  s: string;

begin

  s : = 'комар';

  delete (s, pos ('ар', s), 2);

  writeln (s);

  readln

end.

n=0

while n<+1000: # Пока n не станет четырехзначным числом алгоритм не запуститься.

n=n+1

while n<10000 and n>999: # Здесь прописанны условия для n

nlist=list(str(n)) # В данной строчке мы делем число на отдельные цифры

c=0 # Не обращай внимания это нужно для кода

v=len(nlist)

while c<v:

p=nlist.count(nlist[c]) # Здесь программа находит сколько одинаковых цифр в числе, и если их три, то пишет его

if p==3:

print(n)

c=c+1

n=n+1

Я согласен, что код возможно сильно сыроват и не совсем отвечает требованиям, но я только недавно начал изучать программирование, да и к тому же думаю, что вы на примере этого разберётесь, что делать дальше. Надеюсь я вам