Есть ответ 👍

Вывести все четырехзначные числа, произведение цифр которых-простое число

243
266
Посмотреть ответы 2

Ответы на вопрос:


Program long;   uses crt;   const n=5;   type vec=array [1..n] of integer;   var a, b, c: vec;         i,j,k, col: integer;         pro: longint;         a1, a2: integer; begin   clrscr;   randomize;   col: =1;   pro: =1;   writeln ('massiv a: ');   for i: =1 to n do     begin         a[i]: =500+random(2000);         write(a[i]: 6);         if a[i] > 1000 then               begin                   b[col]: =a[i]; col: =col+1;               end;     end;   writeln;   col: =col-1;   writeln;   writeln ('massiv b: ');   for i: =1 to col do     writeln(b[i]);   writeln;   k: =1;   for i: =1 to n do     begin             a2: =b[i] mod 10;             a1: =b[i] div 1000;             if sqr(a1)< sqr(a2) then                     begin                           c[k]: =b[i];                           k: =k+1;                     end;     end;   for i: =1 to k-1 do         pro: =pro*c[i];   writeln ('pro=',pro); readln; end.

57: 17=3 (6 остаток) всё просто

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Математика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS