Св паскале ( не сложная) : каждые 3 часа моллюск делится на 2, сколько их будет через n часов? обратите внимание на то, что число часов может и с остатком делится на 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. где у меня тут ошибка, думаю скорее всего в
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.