Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
Вы добавили вчера , вам ещё нужно?
По сути нужно найти набор букв "child" и добавить сзади "ren".
1) Начало
2) Ввод числа n и массива s(n)
2.1) k = 0
3) Цикл по i от 1 до n-4
3.1) Если (s(i)="c") и (s(i+1)="h") и (s(i+2)="i") и (s(i+3)="l") и (s(i+4)="d"), то
3.1.1) k = k + 3
3.1.2) Переопределяем размер массива на s(n+k)
3.1.3) Цикл по j от i+5 до n
// Отодвигаем на 3 знака все буквы после s(i+4)="d"
3.1.3.1) s(j+3) = s(j)
3.1.3.2) Конец цикла по j
3.1.4) s(i+5)="r"; s(i+6)="e"; s(i+7)="n"
3.1.5) Конец Если
3.2) Конец цикла по i
4) Вывод массива s(n+k)
5) Конец
Подскажите пожалуйста!!! Нужно составить слова в которых:- буквы: в, е, с, т, о.- буквы: с, е, р, д, а.- буквы а, л, о, м, с- бу
Леди Винтер
<span>- буквы: в, е, с, т, о: отвес, отсев
- буквы: с, е, р, д, а: среда, адрес
- буквы а, л, о, м, с: масло, смола
- буквы а, к, п, я, т: пятка, пятак, тяпка</span>