Помогите с задачкой в паскале ( не сложная)!!!!!! Задача: каждые 3 часа моллюск делится на 2, сколько их будет через N часов? Обратите внимание на то, что число часов может и с остатком делится на 3!!!! Program molusk; var s,n,...

Помогите с задачкой в паскале ( не сложная)!!!!!! Задача: каждые 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....).
Гость
Ответ(ы) на вопрос:
Гость
ошибка мягко говоря везде. все перепутано и никаккой логики 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы