1 A2 B4 C6 D8
2 =B1/A1 =C1-B1 =D1/A1......КАКАЯ ИЗ ФОРМУЛ ПРИВЕДЁННАЯ И Т.Е 1)C1/A1+1
2)=A1-1
3)C1+B1
4)C1+1
Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.
Код:
program school7;
Var a:Integer;
begin
Write('Введите число>> ');
ReadLn(a);
Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');
end.
1 и 0 = 0
0 или 1 = 1
не 1 = 0
Ответ: 0