#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
int main() {
int n,k,pr;
printf("n = ");
scanf("%i",&n);
//поиск чисел
for (int i=1; i<n+1; i++)
{
k=i; pr=0;
<span> while (k>0)
</span> {<span>
if (((k % 10)==0) or (i % (k % 10)>0))
</span> { pr=1; break; }
k=k/10;
}
if (pr==0) printf("%i ",i);
}
printf("\n");
getch();
return(0);
}
<span>
</span>
Код программы на Pascal :
Program asd;
var n,sum,i,a:integer;
begin
sum:=0;
Write('Введите кол-во чисел');
read(n);
For i:=1 to n do
begin
Write('Введите число');
read(a);
sum:=sum+a;
end;
Writeln('Сумма равна',sum);
readln;
end.
//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками".
var
a, b, c: array [1..100] of longint;
i, min, n, j, t: longint;
begin
//Читаем количество элементов в нашем массиве.
readln(n);
//Читаем массив.
for i := 1 to n do read(a[i]);
//Заполняем первую "половинку".
for i := 1 to n div 2 do b[i] := a[i];
//Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и
//цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.
for i := n div 2 + 1 to n do c[i - n div 2] := a[i];
//Теперь отсортируем первую "половинку" методом выбора. Идея этого метода
//основывается на том, что мы ищем минимальный среди неотсортированных элемент,
//а затем просто swap-аем его с тем, который стоит сразу после отсортированных.
for i := 1 to (n - 1) div 2 do
begin
min := i;
for j := i + 1 to n div 2 do
if b[min] > b[j] then
min := j;
if min <> i then begin
t := b[i];
b[i] := b[min];
b[min] := t;
end;
end;
//Затем вторую точно также, только стоит обратить внимание на сравнения.
//Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом
//будет другим.
for i := 1 to (n - 1) div 2 do
begin
min := i;
for j := i + 1 to n div 2 do
if c[min] < c[j] then
min := j;
if min <> i then begin
t := c[i];
c[i] := c[min];
c[min] := t;
end;
end;
//А теперь просто по очереди выводим готовые "половинки", не забывая ставить
//пробел после вывода каждого элемента.
for i := 1 to n div 2 do write(b[i], ' ');
for i := 1 to n - n div 2 do write(c[i], ' ');
end.
Каждое утро я встаю в ..., умываюсь, кушаю и чищу зубы. потом я собираю портфель и иду в школу, где нахожусь до ... . я прихожу из школы в ... , обедаю и делаю уроки/иду на тренировку. я доделываю уроки в ... ,ужинаю и ложусь спать в ... .