Anatolevich
?>

Паскаль составить программу для проверки, можно ли заданное натуральное число n представить в виде куба простого числа.

Информатика

Ответы

chumakanna17
Var n,k,m: integer; begin readln(n); for k: =1 to n do begin m: =k*k*k; if m=n   then  begin writeln(k,'*',k,'*',k,'=',n); exit; end; end; if (m< > n) then  writeln('het'); end.
okison2847

Попробуй:

var

  a, chet, nechet : integer;

   

begin

  write('введите число: ');

  readln(a);

  while a > 0 do begin

      if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

      a := a div 10;

  end;

  writeln('четных: ', chet);

  writeln('не четных: ', nechet);

end.

программа считает 0 как четное число. Если нужно что бы 0 не учитывался при подсчете то необходимо строку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

заменить на:

if a mod 10 <> 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

kobzev-e

Новый год для меня - самый любимый и долгожданный праздник. В преддверие Нового года мною овладевает странное чувство, что должно случиться что-то волшебное и радостное. Повсюду атмосфера праздника, и люди готовятся к его приходу - покупают пышные ели домой, различные фрукты и сладости на стол, и конечно, подарки для своих близких. Для детей, Новый год - это настоящая сказка.

Накануне Нового года мы начинаем готовиться к его празднованию. Украшаем нашу елку и комнаты яркими гирляндами и игрушками, мишурой и разноцветными шарами. Квартира преображается, становится праздничной и еще более уютной.

Каждый год к праздничному столу мама готовит много всего вкусного и необычного. К нам в гости приходят близкие друзья и родственники. Все веселятся, поют и танцуют, участвуют в забавных конкурсах. Ближе к полуночи, выходим на улицу, запускаем салюты и любуемся красивым фейерверком. Повсюду слышны поздравления, восторг и радость от прихода Нового Года. А на утро, я с нетерпением бегу к елке, чтобы узнать какой же подарок мне подарили.

Уверен, что в этом году празднование Нового Года будет еще увлекательнее, а наступающий год принесет лишь счастье и радость!

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль составить программу для проверки, можно ли заданное натуральное число n представить в виде куба простого числа.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Dmitrychekov9
savva-vika
Елена_Кошевой
Evsevia-a
heodbxbbshe
sveta740450
iskypka
vkorz594
Васильева-Александрович
lele4kass
vet30
N-odes-art-school410
rimmatrotskaia303
Varezka86179
МуратМарина1140