Какой ответ будет выведен после выполнения цикла:
for x := 1 to 8 do
if x mod 7 = 0
then x := x + 1;
2) Какой ответ будет выведен после выполнения цикла:
S := 0;
for x := 1 to 10 do
if x mod 3 = 0
then S := S + x;

1) Какой ответ будет выведен после выполнения цикла:

for x := 1 to 8 do  Подставляем Х от 1 до 8

if x mod 7 = 0  Подставляем сюда Х=1   1  mod 7=0  нет так как mod это остаток от деления 1 mod 7 = 1  условие ложно и следующая строчка работать не будет, значит единственный Х который нам подходит это 7

7 mod 7 = 0 Да

then x := x + 1;   Х:=7+1  X:=8

ответ: 8

2) Какой ответ будет выведен после выполнения цикла:

S := 0;

for x := 1 to 10 do

if x mod 3 = 0    Тут у нас снова mod  и нам подходят только числа 3,6,9

так как они при делении на 3 дают остаток 0

3 mod 3 = 0 да

6 mod 3 = 0 да

9 mod 3 = 0 да

then S := S + x;

S:=0+3 S:=3

S:=3+6 S:=9

S:=9+9 S:=18

ответ: 18

Объяснение:

решение наркоманское, но вышло короче : 3

uses crt; vara,b,c: integer; beginwriteln('введите три числа: '); readln(a,b,c); if (a> b) and (b> c) thenwriteln(a,b,c); if (a> b) and (b> c) then writeln(c,b,a); if (a> c) and (c> b) then writeln(b,c,a); if (b> a) and (a> c) then writeln(c,a,b); if (b> c) and (c> a) then writeln(a,c,b); if (c> a) and (a> b) then writeln(b,a,c); if (c> b) and (b> a) then writeln(a,b,c); end.