Помогите с задачкой в паскале (не сложная) !
Задача: каждые 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 ...).
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите с задачкой в паскале (не сложная) ! Задача: каждые 3 часа моллюск делится на 2, сколько их будет через N часов? Обратите внимание ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)
Program a2; var n, i, min, max, x:integer; begin Writeln ('Введите колицество человек в классе:') ; Readln (n) ; Writeln ('Введите рост 1 ученика:') ; readln (x) ; min:=x; max:=x; for i:=2 to n do begin Writeln ('Введите рост ', i,' ученика:') ;
Ответы (1)
Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Помогите с ответом
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Сколько четвёртых и сколько восьмых долей единицы в данном числе 1/2, 1 1/2,2 1/4,
Нет ответа
Данные имена существительные поставь форме множественного числа и запиши пары слов обозначь в словах ту часть которая изменяется при изменении слова по числам
Нет ответа
Яркий солнечный день. светит ... дует ... а вокруг ... Слова для составления предложения. Пушистая, молодая, зеленая, мягкая, сочная, как бархатная зеленеет, словно раскинулся ковер Желтые поговки, яркие фонарики огоньки, маленькие солнышки Растут,
Нет ответа