В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Degradant81
Degradant81
30.09.2020 13:20 •  Информатика

Текущее показание электронных часов: m часов (0 ≤ m ≤ 23) , n минут (0 ≤ n ≤ 59) , k секунд (0 ≤ k ≤ 59). Какое время будут
показывать часы через p ч q мин r c?
Язык C


Текущее показание электронных часов: m часов (0 ≤ m ≤ 23) , n минут (0 ≤ n ≤ 59) , k секунд (0 ≤ k ≤

Показать ответ
Ответ:
КАНЯ1111111111
КАНЯ1111111111
10.02.2023 16:25
Const nmax=20;var a:array[1..nmax,1..nmax] of integer;    m,n,i,j,k,l,p:byte;begin
randomize;repeatwrite('Количество строк до ',nmax,' n=');readln(n);until n in [1..nmax];repeatwrite('Количество столбцов до ',nmax,' m=');readln(m);until m in [1..nmax];writeln('Исходная матрица:');for i:=1 to n do begin   for j:=1 to m do    begin     a[i,j]:=random(100);     write(a[i,j]:4);    end;   writeln; end;writeln;k:=0;{наличие нужного столбца}j:=1;while(j<=m) and(k=0) do{идем по столбцам} begin  p:=0;{наличие совпадений}  for i:=1 to n-1 do{идем вниз по столбцу}  for l:=i+1 to n do{смотрим впереди}  if a[i,j]=a[l,j] then p:=1;{если одинаковые, фиксируем}  if p=1 then k:=1{есть столбец}  else j:=j+1;{нет, смотрим следующий} end;if k=1 then write('Столбец с одинаковыми элементами есть')else write('Столбца с одинаковыми элементами нет');readlnend.
0,0(0 оценок)
Ответ:
flora21345
flora21345
06.08.2022 15:45
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота