М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sashapeterov85
sashapeterov85
14.03.2022 09:04 •  Информатика

Вpascal abc написать программу, используя цикл while, которая находит одинаковые цифры двух трёхзначных чисел, при этом на экран с клавиатуры должны выводиться только трёхзначных числа, только чётные и только различные

👇
Ответ:
Kabesov
Kabesov
14.03.2022

program fantscrin;

    var x_1,x_2,h,j,i: integer; f: boolean; a: array [1..3] of string; k,l: string;

    function chek_number(a: integer): boolean;

    var k: integer;

    begin

      if (a mod 2 < > 0) then  

                        begin  

                          chek_number: =false;

                          exit;

                        end;                  

      while a > 0 do

      begin

        a: =a div 10;

        k: =k+1;

      end;

      if (k = 3) then chek_number: =true

                else chek_number: =false;  

    end;

begin

    f: =false;

    while f = false do

    begin

      write('введите 1-ое число: '); readln(x_1);

      f: =chek_number(x_1);

    end;

    f: =false;

    while f = false do

    begin

      write('введите 2-ое число: '); readln(x_2);

      f: =chek_number(x_2);

      if (f) then if (x_1 < > x_2) then f: =true

                                  else f: =false;

    end;

   

    str(x_2,l);

    str(x_1,k);

    i: =1;

    h: =1;

    while i< =3 do

    begin

      j: =1;

      while j< =3 do

      begin

        if (k[i] = l[j]) then  

                        begin    

                            a[h]: =k[i];

                            h: =h+1;

                        end;

        j: =j+1;

      end;

      i: =i+1;

    end;

    writeln('');  

    i: =1;

    while i < =3 do

    begin

      write (a[i], '   ');

      i: =i+1;

    end;

end.

4,4(9 оценок)
Открыть все ответы
Ответ:
chery10
chery10
14.03.2022

ответ:

в те времена, когда компьютеры и интернет были предметами шика и роскоши, безумной популярностью пользовались компьютерные игровые клубы. десятки тысяч школьников по всей стране просиживали там практически всё своё свободное время. этот пост для тех, кто помнит что такое «пойти толпой на ночь».   в клубах была своя атмосфера. в прямом смысле слова: обычно здесь было душно, пахло куревом и дешёвым мужским одеколоном. основной контингент — школьники практически всех возрастов.   клубом админ. , это был царь и бог, с которым все старались завести дружбу потому что друзьям админ разрешал играть бесплатно. а ещё он сам мог играть во что угодно за своим главным компом, да ещё и получать за это деньги. тогда для всех посетителей клуба это было пределом мечтаний.

объяснение: выбери кратко какую-нибудь инфу

4,6(65 оценок)
Ответ:
Smazi
Smazi
14.03.2022

ответ:

объяснение:

#include

#include

using namespace std;

void main ()

{

    setconsoleoutputcp(1251);

const int size=3;    

int ar[size];

    for (int i=0; i

    {

        cout< < "введите число №"< ";

        cin> > ar[i];

        cout<

    }

   

    for (int i=0; i

    {

       

        cout<

   

    }

}

4,5(60 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ