Программа на Паскале

[Milkyway]

Задание:
Напишите программу, которая определяет, является ли заданное число степенью 3.

Ограничение:
1)Обязательно использовать неопределенный цикл(While).

[MOZGIII]

Синтаксис не помню но семантика проста :)
Ну и это всё без объявления переменных и работает, конечно, только для целых положительных

Код: Выделить всё

begin
 n := число
 i := 1
 while (i*i*i < n)
  i:=i+1;
 end;
 if(i*i*i = n) then
  writeln('true');
 else
  writeln('false');
 end;
end.

[Milkyway]

MOZGIII
Почему ты присваиваешь i:=1?

Добавлено спустя 13 минут 33 секунды:
В общем-то все работает с небольшой корректировкой. Спасибо.

[olegv11]

Milkyway666
Как ты к переменной, не имеющей значения прибавишь 1?

[Milkyway]

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

[olegv11]

Milkyway666
Разве? Зачем же тогда нас учили обнулять переменные?

[1nquIz]

Если не указать значение, то она будет неинициализированной же, а это совсем не ноль. Или конпелятор паскалевский сам инициализирует их?

[x_000]

паскаль не сишка же, он вроде как сам инициализирует нулем по дефолту

[Milkyway]

он вроде как сам инициализирует нулем по дефолту

именно

_____

Выкладываю очередную задачу:

Дана непустая последовательность целых чисел, оканчивающаяся нулем.
Найти:
а) сумму всех чисел последовательности;
б) коичество всех чисел последовательности.
а,б - в одной программе.

Ограничения:
- Использовать неопределенный цикл До(Repeat ... Until)

Кто поможет, тому печенька.

[MOZGIII]

Логика должна быть понятна, синтаксис может быть с косяками...

n: integer;
sum: integer;
count: integer

begin
readln(n);
sum:=0;
while n<>0 do
begin
sum:=sum+n;
count:=count+1;
readln(n);
end;
end.

Добавлено спустя 2 минуты 51 секунду:
а откуда и зачем задачки то такие?)))
fixd

[Nice_Smile]

n:= readline?

Код: Выделить всё

readln(n); 

Не?

Добавлено спустя 1 минуту 45 секунд:

while n<>0

Код: Выделить всё

while n<>0 do

[MOZGIII]

я последний раз на паскале кодил лет 6 назад

[Nice_Smile]

[MOZGIII]

И как, работает? xD

[Nice_Smile]

Да, вроде всё отлично.