Задать вопрос
18 октября, 18:30

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

Задача: каждые 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)
  1. 18 октября, 18:52
    0
    Ошибка мягко говоря везде. все перепутано и никаккой логики

    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите с задачкой в паскале (не сложная) ! Задача: каждые 3 часа моллюск делится на 2, сколько их будет через N часов? Обратите внимание ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке 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)