Помогите с задачкой в паскале (не сложная) !

Задача: каждые 3 часа моллюск делится на 2, сколько их будет через N часов? Обратите внимание на то, что число часов может и с остатком делится на 3!

Program molusk;

var s, n, i: integer;

begin;

n:=1;

Writeln ('введите время ') ; readln (s) ;

for i:=1 to s do

if (s mod 3) = 3 then n:=s:3;

writeln (n) ;

end.

Где у меня тут ошибка, думаю скорее всего в ( ... Mod ...).

Question

Информатика

Филиппин

2 марта, 14:48

Помогите с задачкой в паскале (не сложная) !

Задача: каждые 3 часа моллюск делится на 2, сколько их будет через N часов? Обратите внимание на то, что число часов может и с остатком делится на 3!

Program molusk;

var s, n, i: integer;

begin;

n:=1;

Writeln ('введите время ') ; readln (s) ;

for i:=1 to s do

if (s mod 3) = 3 then n:=s:3;

writeln (n) ;

end.

Где у меня тут ошибка, думаю скорее всего в ( ... Mod ...).

+2

Ответы (1)

Знаете ответ на вопрос?

Владилена · Answer 1

Ошибка мягко говоря везде. все перепутано и никаккой логики

var

molusk, n, i: integer;

begin;

molusk : = 1;

Writeln ('введите время ') ;

readln (n) ;

for i : = 1 to n do

if i mod 3 = 0 then

molusk : = 2 * molusk;

writeln (molusk) ;

end.