Составить программу, которая запрашивает четырехзначное число, и находит произведение цифр этого числа

Program i7; var   i,n,k: integer; begin   writeln('vvedi 4etireh znachoe chislo');   readln(n);   k: =1;   while n> 0 do       begin           k: =k*n mod 10;           n: =n div 10;       end;   writeln(k); end.

Минимальное число, кратное 3 - это само число 3. а дальше увеличиваем числа на // pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =3;   var s: =0;   repeat       s+=n;       if s> =100 then begin s-=n; break end       else           if n< > 3 then write('+',n) else write(n);       n+=3   until false;   writeln('=',s) end. результат 3+6+9+12+15+18+21=84

Объяснение:

Вот что я нашла по этому

1) Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a > 5 ) a = a + 12; else { a = a - 7; if ( a > 5 ) a = a + 12; else a = a - 7;} *

2) Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 5 ) a += 12; else a -= 7; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if (!(a < 5) ) a = 5; *

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15? a = 10; b = 5; if ( a < 1 ... a > b ) a = a - 5; else a = a + 5;

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if ( a > 1 || a < b) a = a - 5; if ( a > 1 && a == b) a = a - 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 5 ) a += 12; else { a -= 7; if ( a < 5 ) a + =12; else a -= 7;} *

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 17? a = 10; b = 5; if ( a > 1 ... a < b ) a = a - 7; else a = a + 7;

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 5 ) a = 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 15 ) a += 12; else a -= 7; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 3; if ( a > b ) b = b + 12; else {a = a - 7; if ( a > b ) a = a + 12; else a = a - 7;} *

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 3? a = 10; b = 5; if ( a < 1 ... a > b ) a = a - 7; else a = a + 7; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if ( a > 1 && a < b ) a = a - 5; if ( a > 1 && a == b ) a = a - 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if ( a > 5 && a < b ) a = a - 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a > 5 ) a = 12; *

Сорян это только что я нашла