Дан программный код (будет на четырех языках): найдите минимальное целое положительное число, которое нужно подать на вход программе, чтобы на выходе получить значение 19. в ответе укажите целое число. p.s. облазил весь инет, но нашёл решения, которые находились от ответа. сделайте полное решение с понятным объяснением: что откуда взялось. заранее .

👇

Ответ:

Khan11111

28.06.2021

Объяснение:

Переменная S должна на выходе программы быть равной 19, в результате работы этой программы S равна сумме цифр из которых состоит входное число N, число 19 можно представить как сумму состоящую не менее чем из трёх одноразрядных слагаемых, то есть N это трёхзначное число, легко понять что N =199, это наименьшее число, сумма цифр которого равна 29.

4,7(23 оценок)

Открыть все ответы

Ответ:

Tiger333

28.06.2021

// PascalABC.NET 3.0, сборка 1073
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,k,s:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
k:=0;
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if Odd(a[i,j]) then Inc(k)
    end;
    Writeln
end;
if k>5 then begin
    Writeln('Средние арифметические отрицательных элементов по строкам');
    for i:=1 to m do begin
      s:=0; k:=0;
      for j:=1 to n do
        if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end;
      if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000');
    end
end
else begin
    Writeln('*** Результирующий массив ***');
    for i:=1 to m do begin
      for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end;
    Writeln
    end
end
end.

Тестовые решения:
Введите число строк и столбцов массива:
8 6
*** Исходный массив ***
-16 -8 -1 24 -22   1
-9 -20 -25 13 -11 10
-15 10 -12 20 -22   3
-6 25 -3 25 -14 22
24 -4 24 17 -4 -17
-23 -9 -22   1 -18 -13
-12 13   6 -16   2 -13
19   8 -22 14 -3   4
Средние арифметические отрицательных элементов по строкам
-11.75000
-16.25000
-16.33333
-7.66667
-8.33333
-17.00000
-13.66667
-12.50000

Введите число строк и столбцов массива:
3 5
*** Исходный массив ***
   3 24 -21 -22 -8
-21 14 -22   0 -22
15 -16 -2   6 22
*** Результирующий массив ***
   6 48 -42 -44 -16
-42 28 -44   0 -44
30 -32 -4 12 44

4,7(6 оценок)

Ответ:

Ks113

28.06.2021

Как приложить исходники?

Исходный код модуля Uni1:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin;
type
{ TForm1 }
TForm1 = class(TForm) FloatSpinEdit1: TFloatSpinEdit; FloatSpinEdit2: TFloatSpinEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure FloatSpinEdit1Change(Sender: TObject); procedure FloatSpinEdit2Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Label1Click(Sender: TObject); private { private declarations } public { public declarations } end;
var Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure calcsquare;begin Form1.Label3.Caption:='Площадь кольца '+FloatToStr(3.141592*Form1.FloatSpinEdit1.Value*Form1.FloatSpinEdit1.Value-3.141592*Form1.FloatSpinEdit2.Value*Form1.FloatSpinEdit2.Value);end;
procedure checkvalues;begin if (Form1.FloatSpinEdit2.Value>Form1.FloatSpinEdit1.Value) then begin Showmessage('Внешний радиус не может быть меньше внутреннего'); Form1.FloatSpinEdit2.Value:=Form1.FloatSpinEdit1.Value; end else begin calcsquare; end;end;
procedure TForm1.Label1Click(Sender: TObject);begin
end;
procedure TForm1.FloatSpinEdit1Change(Sender: TObject);begin checkvalues;end;
procedure TForm1.FloatSpinEdit2Change(Sender: TObject);begin checkvalues;end;
procedure TForm1.FormCreate(Sender: TObject);begin
end;
end.

Исходный код формы Form1

object Form1: TForm1 Left = 357 Height = 180 Top = 212 Width = 311 Caption = 'Расчет площади кольца' ClientHeight = 180 ClientWidth = 311 LCLVersion = '1.0.12.0' object Label1: TLabel Left = 37 Height = 16 Top = 16 Width = 94 Caption = 'Внешний радиус' ParentColor = False OnClick = Label1Click end object Label2: TLabel Left = 39 Height = 16 Top = 82 Width = 108 Caption = 'Внутренний радиус' ParentColor = False end object FloatSpinEdit1: TFloatSpinEdit Left = 40 Height = 23 Top = 32 Width = 234 Increment = 1 MaxValue = 100 MinValue = 0 OnChange = FloatSpinEdit1Change TabOrder = 0 Value = 0 end object FloatSpinEdit2: TFloatSpinEdit Left = 40 Height = 23 Top = 102 Width = 234 Increment = 1 MaxValue = 100 MinValue = 0 OnChange = FloatSpinEdit2Change TabOrder = 1 Value = 0 end object Label3: TLabel Left = 40 Height = 16 Top = 147 Width = 7 Caption = 'S' ParentColor = False endend

4,5(91 оценок)

Это интересно:

Стиль-и-уход-за-собой

11.10.2021

Как сделать татуировку с помощью маркера: безболезненный способ...

Компьютеры-и-электроника

11.10.2021

Как избавиться от отображения в списке «Рекомендуемые друзья» на Facebook?...

Мир-работы

14.04.2021

5 советов, как стать хорошей няней для детей...

Образование-и-коммуникации