F должно быть равно "1", т.к. для произведения(а факториал - это произведение) нейтральное число - "1", а для суммы - "0".
while k, нельзя преобразовать тип Integer к типу boolean в Паскале, даже если и было можно, то данная запись давала нам бесконечный цикл, нужно заменить на while k <= n
--------------------------------
k:=1; f:= 1;
while k <= n do begin
f:= f*k;
k:= k+1;
end;
Var
m, n, n10, n100: integer;
begin
write('Введите трехзначное число: ');
readln(m);
if (m > 99) and (m < 1000) then
begin
n100 := m div 100;
n10 := (m mod 100) div 10;
n := m mod 10;
if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
else writeln('Сумма цифр не кратна семи')
end
end.
Тестовое решение:
Введите трехзначное число: 473
Сумма цифр кратна семи
Ответ:
A, Б, Г, В
Объяснение:
Чем больше & - тем страниц меньше, чем больше |, тем страниц больше.
А Волк | Коза - только | - больше всего страниц
Б (Волк | Коза)&Капуста - | и & - страниц меньше, чем для A
В Волк&Коза&Капуста - 2 &, меньше всего страниц
Г Волк&Капуста - 1 & - страниц несколько больше, чем для В
Г д з в помощь)))
если честно я сама туда лазию
Эквивалентно для любых чисел 1000<n<2000
int arr[4] = { 1020, 1599, 6289, 4434 };
int count = 0;
for (int i = 0; i < 4; ++i) {
int check = (arr[i] \% 100) / 10;
if (check \% 2 == 0) {
++count;
}
}
cout << "Result: " << count << endl;
