Как узнать сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 196?var n, s, d: integer;beginreadln(d);n := 7;s := 35;while s <= 2570 do begins := s + d;n := n + 9end;write(n)end.
Функция считает, если коротко
n := 7+9*((2570-35) div d + 1)
196 = 7+9*((2570-35) div d + 1)
(196-7)/9-1 = (2570-35) div d
20 = 2535 div d
4 = 507 div d
507/4 =126.75, значит можно взять меньше
подбором 126 125 124 123 122 121 => 6 чисел
или программой
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
function f(d: integer): integer;
var
n, s: integer;
begin
n := 7;
s := 35;
while s <= 2570 do
begin
s := s + d;
n := n + 9
end;
f := n;
end;
begin
for var i := 1 to 100000000 do
begin
if f(i) = 196 then writeln(i);
if f(i) <> 7 + 9 * ((2570 — 35) div i + 1) then writeln(‘not ‘, i);
end;
end.
Сколько различных значений можно закодировать, если разрядность кодирования равна 8 бит; 16 бит; 24 бита?
Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
Сколько различных значений числа d можно ввести
При выполнении заданий с кратким ответом впишите в поле для ответа цифру, которая соответствует номеру правильного ответа, или число, слово, последовательность букв (слов) или цифр. Ответ следует записывать без пробелов и каких-либо дополнительных символов. Дробную часть отделяйте от целой десятичной запятой. Единицы измерений писать не нужно.
Если вариант задан учителем, вы можете вписать или загрузить в систему ответы к заданиям с развернутым ответом. Учитель увидит результаты выполнения заданий с кратким ответом и сможет оценить загруженные ответы к заданиям с развернутым ответом. Выставленные учителем баллы отобразятся в вашей статистике.
Автомат получает на вход трёхзначное число. По этому числу строится новое число по следующим правилам.
1. Складываются первая и вторая, а также вторая и третья цифры исходного числа.
2. Полученные два числа записываются друг за другом в порядке убывания (без разделителей).
Пример. Исходное число: 843. Суммы: 8 + 4 = 12; 4 + 3 = 7. Результат: 127.
Сколько существует чисел, в результате обработки которых автомат выдаст число 1715?
Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 196?
var n, s, d: integer;
begin
readln(d);
n := 7;
s := 35;
while s Лучший ответ
var n, s, d: integer;
begin
readln(d);
n := 27;
s := 12;
while s Попроси больше объяснений