Из данного натурального числа удалить все цифры а (а вводятся с клавиатуры написать программу в !

Var a,b: string; i: integer; begin readln(a); readln(b); for i: =1 to length(a) do   if a[i]=b then continue   else write(a[i]); end.

//dev-c++ 5.11 (c) #include < stdio.h> #include < stdlib.h> #include < ctime> #include < malloc.h> int main(void)   {int i,n,*ar1,*ar2,min1,min2,b=1;   scanf("%d",& n);   ar1=(int*)malloc(n*sizeof(int));   ar2=(int*)malloc(n*sizeof(int));   srand(time(null));   printf("array 1: \n");   for(i=0; i< n; i++)   {ar1[i]=rand()%10;   printf("%d ",ar1[i]); }   printf("\n array 2: \n");   for(i=0; i< n; i++)   {ar2[i]=rand()%10;   printf("%d ",ar2[i]); }   min1=ar1[0];   min2=ar2[0];   for(i=1; i< n; i++)   {if (min1> ar1[i])     min1=ar1[i];   if (min2> ar2[i])     min2=ar2[i]; }   for(i=0; i< n; i++)   if (min2==ar2[i])     {if(i+1==n)     {printf("za massivom");     b=0; }     else     ar2[i+1]=min1;     break; }   if(b)   {printf("\n fin array 2: \n");   for(i=0; i< n; i++)     printf("%d ",ar2[i]); }   free(ar1);   free(ar2);   return 0; } пример ввода: 3 пример вывода: array 1: 2 0 7   array 2: 1 1 2  fin array 2: 1 0 2

Объяснение: Для решения задачи нам понадобиться оператор if. В самой задаче мы будем использовать всего две переменные , которые у нас будут хранить координаты.

1

2

3

4

5

uses crt ;

var

x, y : integer ;

begin

end.

Мы объявили две переменные. Теперь по пользователя ввести значения этих переменных :

1

2

write('Введите x : '); readln(x);

write('Введите y : '); readln(y);

И после того как у нас в переменных есть какие то числа , мы пишем условие :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

write ('Номер четверти координатной плоскости: ');

if (x > 0) and (y > 0) then

writeln ('I')

else

if (x < 0) and (y > 0) then

writeln ('II')

else

if (x < 0) and (y < 0) then

writeln ('III')

else

if (x > 0) and (y < 0) then

writeln ('IV')

else

writeln ('-. Точка лежит на оси.');

Тут уже идет больше знание математики , ну и конечно же умение писать вложенные условия .

Весь код программы :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

uses crt ;

var

x, y : integer ;

begin

clrscr; {очищаем экран}

write('Введите x : '); readln(x);

write('Введите y : '); readln(y);

write ('Номер четверти координатной плоскости: ');

if (x > 0) and (y > 0) then

writeln ('I')

else

if (x < 0) and (y > 0) then

writeln ('II')

else

if (x < 0) and (y < 0) then

writeln ('III')

else

if (x > 0) and (y < 0) then

writeln ('IV')

else

writeln ('-. Точка лежит на оси.');

readln; {чтобы программа не закрывалась}

end.

Вот результат :

ris11