Цикл с условием, Паскаль

Абай · 10.06.2011, 00:11

Дано целое число N (> 0). Если оно является степенью числа 3, то
вывести TRUE, если не является — вывести FALSE.

Vladimir_S · 10.06.2011, 09:33

Цитата:

Сообщение от Абай

Дано целое число N (> 0). Если оно является степенью числа 3, то
вывести TRUE, если не является — вывести FALSE.

Код:

VAR
 N,i:LongInt;
BEGIN
 Write('N= ');
 Readln(N);
 i:=1;
 Repeat
  i:=i*3;
 Until i>=N;
 Writeln(i=N);
 Readln
END.

10.06.2011, 00:11	#1 (permalink)
Абай Member Регистрация: 03.06.2011 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Цикл с условием, Паскаль Дано целое число N (> 0). Если оно является степенью числа 3, то вывести TRUE, если не является — вывести FALSE.

10.06.2011, 00:11
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	По содержанию ваш текст очень напоминает эти топики Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Цикл с параметром for Цикл с условием, Паскаль Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070