Var
  i,min:integer;
  m:array[1..10] of integer;
begin
for i:=1 to 10 do
  begin
  readln(m[i]);
  if i=1 then min:=m[i];
  if m[i]<min then min:=m[i];
  end;
for i:=1 to 10 do
  begin
  if m[i]=0 then m[i]:=min;
  write(m[i],' ');
  end;
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Разбейте число 186 на три попарно различных натуральных слагаемых, сумма любых двух из которых делится на третье. Перечислите чи

Светлана230279 [349]

186 = 31+62+93
31+62 = 93
93/3 = 31

0 0

4 года назад

Составить,программа требует вести два числа если первое число больше второго то программа печатает слово больше если меньше втор

lykawkaa

C++
#include <iostream>
using namespace std;

int main()
{
int a = 0, b = 0;
cin >> a >> b;
if (a > b) {
      cout << "больше";
}
else if (a < b) {
      cout << "меньше";
}
else {
      cout << "равно";
}
return 0;
}

0 0

1 год назад

Составьте программу, по которой вычисляется f=10! (Факториалом числа N называется произведение всех натуральных чисел от I до N

Морозова Н

Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.

Результат:
10! = 3628800

0 0

1 год назад

Прочитать ещё 2 ответа