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

вам дано целое число n.
найдите количество чисел от 1 до n, которые имеют четное количество делителей.

формат входных данных
в первой строке одно целое число n (1≤n≤10^9)

формат выходных данных
выведите ответ

1.1≤n≤1000
2.1≤n≤10^5
3.1≤n≤10^9

пример
стандартный ввод
10

стандартный вывод
7

👇
Ответ:
Korish2005
Korish2005
17.03.2023

function opkd(n: integer): integer;

var i,k: integer;

begin

k:=0;

for i:=1 to n do if n mod i=0 then k:=k+1;

opkd:=k;

end;

var n,i,k: integer;

begin

k:=0;

readln(n);

for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;

write(k);

end.

4,5(37 оценок)
Открыть все ответы
Ответ:
Rekryt123
Rekryt123
17.03.2023

const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.

4,7(6 оценок)
Ответ:
zulu51
zulu51
17.03.2023

Уже писал, но попал в баг(

Так вот. В паскале это будет так:

1)var a,b,c:integer;

begin

         readln(a,b);

         if a div 2 =0 then c:=(a+b)*(a+b)*(a+b);

                              else c:=a*a*a+b*b*b;

         writeln(c);

end.

2)var a,b,c:integer;

          d:real;

begin

          readln(a,b,c);

          if (a<0) or (b<0) or (c<0) then d:=abs(a+b+c)

                                                       else d:=sqrt(a+b+c);

         writeln(d:0:2);

end.

3)var a,b,c:integer;

begin

          readln(a,b,c);

          if (a*b*c<0) then begin a:=a*a; b:=b*b; c:=c*c; end

                               else begin a:=abs(a); b:=abs(b); c:=abs(c); end;

          writeln( a, ' ', b, ' ', c);

end.

Вот так вот.

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