Циклы (for and while), составить программу в pascal abc, . составьте программу, которая выводит на экран количество трехзначных чисел у которых вторая цифра в два раза больше первой, а третья в два раза больше второй.

Var
n, k: integer;
t, v, p : real;
begin
    k:=0;
    for n := 100 to 999 do
    begin
        p:= n div 100;
        v := (n div 10)mod 10;
        t := n mod 10;
        if (v = 2*p) and (t = 2*v) then
            k:=k+1   ;
      end;
      print(k);
end.
   

Всемирная компьютерная сеть (или Интернет) — это объединение локальных, региональных и национальных компьютерных сетей в одно информационное пространство, которое не имеет никаких территориальных и национальных границ. В современном мире интернет представляет собой глобальное средство коммуникаций, которое эффективно обеспечивает обмен различной информацией: Текстовые файлы; Изображения и графика; Аудиофайлы; Видеоинформация; Онлайновые службы по всей планете. На сегодняшний день количество пользователей сети интернет уже давно превысило отметку в 1 миллиард человек. По оценке Всероссийского центра изучения общественного мнения (ВЦИОМ) сегодня в России количество пользователей интернетом перевалило за 70% всего населения, что является достаточно высоким показателем, учитывая процентное соотношение представителей разных возрастов. Информация взята с сайта биржи Автор24: https://spravochnick.ru/informacionnye_tehnologii/organizaciya_kompyuternyh_setey/vsemirnaya_kompyuternaya_set/ .

Взято со страницы: https://spravochnick.ru/informacionnye_tehnologii/organizaciya_kompyuternyh_setey/vsemirnaya_kompyuternaya_set/

#include<conio.h>

#include<stdio.h>

#include <stdlib.h>

#include<time.h>

#define N 25

#define K 3

 

int prime(int num)

{   int i;

   for(i=2;i<=num/2;i++)

       if(num%i==0) break;

   if(i==num/2+1 || num==1) return num;

   else return 0;

}

 

int maxPos(int A[])

{   int i,max,mPos;

   max=0;

   for(i=0;i<N;i++)

       if(A[i]>max)

       {   max=A[i];

           mPos=i;

       }

   return mPos;

}

 

int main()

{   int i,j,X[N],Y[N],pos;

   srand(time(NULL));

   for(i=0;i<N;i++)

   {   X[i]=rand()%30+1;

       Y[i]=prime(X[i]);

   }

   printf("Original array\n");

   for(i=0;i<N;i++)

       printf("%3d",X[i]);

   printf("\nArray-masque of prime numbers\n");

   for(i=0;i<N;i++)

       printf("%3d",Y[i]);

   

   printf("\n\n");

   for(j=0;j<K;j++)

   {   pos=maxPos(Y);

       printf("%3d in position %3d targeted\n",X[pos],pos);

       Y[pos]=-1;

       X[pos]=-1;

   }

 

   j=0;

   for(i=0;i<N;i++)

       if(X[i]!=-1)

       {   Y[j]=X[i];

           j++;

       }

   

   printf("\nResult:\n");

   for(i=0;i<j;i++)

       printf("%3d",Y[i]);

   

   getchar();

   return 0;

}

Объяснение: