Ответы на вопрос:
Сначала код без комментариев: var s: longint; i: integer; a: byte; begin s: =0; repeat read(a); if (a mod 2 < > 0)and(a mod 7 = 0) then s: =s+a; until a = 0; writeln('s = ',s); end. теперь объяснение каждой строки: var s: longint; i: integer; a: byte; // в эту переменную будет вводится число с клавиатуры. тип byte может принимать значения от 0 до 255. поэтому его как раз хватит. begin s: =0; // тут будет храниться сумма, поэтому переменную следует сперва обнулить. repeat // далее начинается цикл read(a); // эта команда каждый раз считывает с клавы число, и записывает его в переменную a. if (a mod 2 < > 0)and(a mod 7 = 0) then s: =s+a; //тут проверяется 2 условия, и если они выполняются - к переменной s прибавляется значение переменной а 1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (a mod 2 < > 0) 2 условие: число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (a mod 7 = 0) until a = 0; // цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (a = 0) writeln('s = ',s); // тут выводится искомая сумма end.
Популярно: Информатика
-
vgaydeekoy8i5c11.07.2020 02:16
-
Kashakom0419.03.2020 20:30
-
vaysmotr25.05.2021 16:32
-
Pawel10hor14.05.2021 07:59
-
yasya14225.08.2021 12:12
-
Podokonik30.09.2020 23:58
-
собачка3421.05.2022 14:16
-
дима2017318.09.2021 12:30
-
queenames28.09.2021 07:29
-
RihDest12.12.2022 03:01