Регистрация
Пелагея9087
29.08.2021 12:31
Информатика
Есть ответ 👍

Исполнительная система предназначена для: а) выполнения и поддержку приложений
б) поддержку внешних устройств
в) поддержку определенного системного сервера
г)добавления новых модулей
д) архивирования

199
202
Посмотреть ответы 1

Ответы на вопрос:

konstantin1959
konstantin1959
4,5(38 оценок)

Код программы на pascal:

var a:integer;

t:boolean;

 begin

   t:=false;

   writeln('Введите число');

   readln(a);

   if a <= 0 then

     writeln('Нет')

   else begin

   while a mod 3 = 0 do begin

     a:= a div 3;

     if (a = 1) then

       t := true;

     end;

   end;

   if t = true then

     writeln('Да')

   else

     writeln('Нет')

 end.

Популярно: Информатика