qwexxw
09.09.2022 07:30

Решить c++ розбиття на групи степан виписує на листочку усі цілі числа від 1 до n в кілька груп, при цьому якщо одне число ділиться на інше, то вони обов'язково будуть у різних групах. наприклад, якщо n = 9, то отримаємо 4 групи: перша група: 1. друга група: 2 3 7. третя група: 4 5 6. четверта група: 8 9. очевидно, що оскільки, будь-яке число ділиться на 1, то одна група завжди буде складатись тільки з числа 1, а от інші групи можуть бути створені різними ть степану, напишіть програму, яка визначає мінімальне число груп, на яке можна розбити усі числа від 1 до n у відповідності до наведеної вище умови. формат вхідних даних: перший рядок вхідних даних містить єдине число n (1 ≤ n ≤ 109). формат вихідних даних: виведіть одне число - шнайдену мінімальну кількість груп. examples input 9 output 4

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
NoAl3
13.02.2020 11:11
Program triangle;
var Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
function findlong(x1, y1, x2, y2:real):real;
var x,y,z:real;
begin
findlong:=sqrt(abs(sqr(x2-x1)+sqr(y2-y1)));
end;
begin
writeln('Введите координаты вершины А');
readln(Ax,Ay); {ввод через пробел}
writeln('Введите координаты вершины B');
readln(Bx,By);
writeln('Введите координаты вершины C');
readln(Cx,Cy);
AB:=findlong(Ax,Ay,Bx,By);
BC:=findlong(Bx,By,Cx,Cy);
CA:=findlong(Cx,Cy,Ax,Ay);
writeln('AB=',AB,' BC=',BC,' CA=',CA);
end.

Если остались непонятки или нужно более подробное объяснение, то пишите в комментарии, а лучше в лс (vkcom/ilyahard)
0,0(0 оценок)
Ответ:
yuliabler
09.10.2021 12:07
Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.

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