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

Втаблице dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (dat[1] – данные за первый день, dat[2] – за второй и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. алг нач целтаб dat[1: 10] цел k, m dat[1] : = 12 dat[2] : = 15 dat[3] : = 17 dat[4] : = 15 dat[5] : = 14 dat[6] : = 12 dat[7] : = 10 dat[8] : = 13 dat[9] : = 14 dat[10] : = 15 m : = 0 нц для k от 1 до 10 если dat[k]> m то m : = dat[k] все кц вывод m кон dim dat(10) as integer dim k,m as integer dat(1) = 12: dat(2) = 15 dat(3) = 17: dat(4) = 15 dat(5) = 14: dat(6) = 12 dat(7) = 10: dat(8) = 13 dat(9) = 14: dat(10) = 15 m = 0 for k = 1 to 10 if dat(k)> m then m = dat(k) endif next k print m var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 12; dat[2] : = 15; dat[3] : = 17; dat[4] : = 15; dat[5] : = 14; dat[6] : = 12; dat[7] : = 10; dat[8] : = 13; dat[9] : = 14; dat[10] : = 15; m : = 0; for k : = 1 to 10 do if dat[k]> m then begin m : = dat[k] end; writeln(m); end.

👇
Ответ:
MaxZvanie
MaxZvanie
04.10.2021
Программа ищет максимальное значение.
Из 10 приведённых значений максимальное значение равняется 17.
ответ:17
4,8(17 оценок)
Открыть все ответы
Ответ:
Vikamurzikk
Vikamurzikk
04.10.2021

var i,n,m,sum,pr,k,j:longint;

begin

 sum:=0; pr:=1;

 write('m: '); readln(m);

 write('n: '); readln(n);

 i:=2;

 repeat

   if m mod i = 0 then

     begin

       sum:=sum+i;

       m:=m div i;

       i:=2;

     end

       else inc(i);

 until m=1;

 writeln('Sum_M:', sum);

 for i:=2 to n div 2 do

   if n mod i = 0 then

     begin

       k:=2;

       for j:=2 to i div 2 do

         if i mod j = 0 then inc(k);

       if (k>2)and(i mod 3 = 0 ) then

         pr:=pr*i;

     end;  

 writeln('Proizv_N:', pr);

 if sum>pr then writeln('Da, sum prost del M > proizv sost del N')

   else

     writeln('Net, sum prost del M < proizv sost del N');

end.

4,4(100 оценок)
Ответ:
урган1
урган1
04.10.2021
Const PTR = 10;
type razbivka = array[0..PTR] of byte;
var n, i, z, k: byte;
x: razbivka;
procedure p(var x: razbivka; var z: byte);
var i, j, s: byte;
begin
i := z - 1;
s := x[z];
while (i > 1) and ( x[i - 1] <= x[i] ) do
begin
s := s + x[i];
dec(i);
end;
inc( x[i] );
z := i + s - 1;
for j := i + 1 to z do
x[j] := 1;
end;
begin
write('Введите число: ');
readln(n);
write(n,' = ');
z := n;
for i := 1 to z do
x[i] := 1;
for i := 1 to n do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
repeat
p( x, z );
inc(k);
write( n,' = ' );
for i := 1 to z do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
until z = 1;
end.

p.s: нашел в интернете для вас вариант с рекурсией. Сами можете убедиться, что с ней только хуже (по быстродействию уж точно)

const  m = 100;
var  a: array[1..m] of integer;
k, n: integer;
procedure p(j,n: integer);
var  i: integer;
begin if ( n = 0 ) and ( k > 1 ) then
begin  for i := 1 to k do
write( a[i] : 4 );
writeln;
end else for i := j to n do
begin
Inc(k);
a[k] := i;
p( j, n - i );
Dec(k);
end;
end;
begin
write('Введите число: ');
readln(n);
k := 0;
p(1,n);
end.

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