Решить на с++ вывести на экран все делители заданного числа. вывести на экран заданное количество чисел, кратных заданному. для двух чисел определить наименьшее общее кратное. приблизительно посчитать квадратный корень заданного числа
Если квадрат натурального числа не превосходит 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.
Алгоритм
Заносим в переменную 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.
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.
Объяснение:
Вводим количество элементов
Задаём массив и выводим его на экран
Находим минимальный элемент столбца и выводим его на экран