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

Решить на с++ вывести на экран все делители заданного числа. вывести на экран заданное количество чисел, кратных заданному. для двух чисел определить наименьшее общее кратное. приблизительно посчитать квадратный корень заданного числа

Показать ответ
Ответ:
Rabver
Rabver
04.03.2023 05:04
Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.

var
  res,num:integer;
begin
  res:=0;
  repeat
    Read(num);
    if (num>res) and (num<=15) then res:=num
  until num=0;
  Writeln(res)
end.
0,0(0 оценок)
Ответ:
daryaromanchuk
daryaromanchuk
26.06.2020 01:07

program z1;

var a:array[1..100,1..100] of integer;

i,j,n,m: integer;

begin

write ('n (n<=100) = ');

readln(n);

writeln;

writeln('Массив: ');

randomize;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(10);

write (a[i,j]:3)

end;

writeln;

end;

writeln;

for j:=1 to n do

begin

m:=a[1,j];

for i:=2 to n do

if a[i,j]<m then m:=a[i,j];

writeln('Минимальный элемент ',j,' столбца: ',m)

end

end.

Объяснение:

Вводим количество элементов

Задаём массив и выводим его на экран

Находим минимальный элемент столбца и выводим его на экран

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота