Задать вопрос
16 марта, 01:15

cделать с помощью цикла repeat until

Логической переменной t присвоить значение true

или false в зависимости от того, является натуральное число k степенью 3 или

нет.

+5
Ответы (1)
  1. 16 марта, 03:17
    0
    Var chislo:integer;

    proverka:boolean;

    begin

    proverka:=true;

    read (chislo) ;

    repeat

    if chislo=0 then / / так как 0 не натуральное число

    begin

    proverka:=false;

    break;

    end;

    if (chislo mod 3) >0 then

    begin

    proverka:=false;

    break;

    end

    else chislo:=chislo div 3;

    until (chislo=0) ;

    if proverka then WriteLn ('Да')

    else WriteLn ('Нет') ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «cделать с помощью цикла repeat until Логической переменной t присвоить значение true или false в зависимости от того, является натуральное ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы