Naemas
5 год назад
Помогите с задачкой в паскале ( не сложная)!!!!!!
Задача: каждые 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....).
ОТВЕТЫ
Ulyan
Aug 9, 2019
Ошибка мягко говоря везде. все перепутано и никаккой логики
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.
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.
280
Смежные вопросы: