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

Дано натуральное число n. найти и вывести все числа в интервале от 1 до n — 1, у которых произведение всех цифр совпадает с суммой цифр данного числа. если таких чисел нет, то вывести слово "нет". написать программу в программе pascalabc.net.

👇
Ответ:
nikvermenox7gay
nikvermenox7gay
05.06.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function SumD(k:integer):integer;
begin
  Result:=0;
  while k>0 do (Result,k):=(Result+k mod 10,k div 10)
end;

function Good(k,s:integer):boolean;
begin
  var p:=1;
  while k>0 do (p,k):=(p*(k mod 10),k div 10);
  Result:=p=s
end;

begin
  var n:=ReadInteger('n=');
  var s:=SumD(n);
  Range(1,n-1).Where(n->Good(n,s)).Println
end.

Пример
n= 44
8 18 24 42
4,4(55 оценок)
Открыть все ответы
Ответ:
Deniza23
Deniza23
05.06.2020

3)платформа была основана в 2012 году профессорами компьютерных наук Стэнфордского университета.Хотя платформа Соursera не была одной из первых,сегодня она стала лидером в онлайн-обучении благодаря правильному выбору стратегий обучения и коммерческой ориентации.С ресурсами этой платформы работают профессора и преподаватели из более чем 190 учебных заведений в мире.

2)xMOOC это открытие онлайн-курсы,предлагаемые авторитетными образовательными учреждениями.Курсы МООС создаются преподавателями образовательных учреждений на основе образовательных программ,а обучение проводится по установленному графику.

1) и 4) не смогла

4,8(72 оценок)
Ответ:
найлешка
найлешка
05.06.2020

--- на Python ---

from random import*

n = int(input('Введите размерность массива : '))

a=[0]*n

for i in range (0,n):

   a[i] = randint(0,2)

print(a)

a = sorted(a)

print(a)

--- на pascal подходит для Delphi и Lazarus ---

var

 a : array of integer;

 i, j, n : integer;

begin

 randomize;

 writeln('Input n');

 readln(n);

 SetLength(a,n);

 for i := 0 to n - 1 do begin

   a[i] := random(3);

   write(a[i]);

 end;

 i:=0;

 while i < n-1 do

   if a[i]>a[i+1] then begin

     j := a[i];

     a[i] := a[i+1];

     a[i+1] := j;

     i:=0;

   end

   else

     inc(i);

 writeln('');

 for i := 0 to n - 1 do

     write(a[i]);

 

end.

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