Напишите условие необходимое для работы следующей программы. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 5 или на 0.
Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.
121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.
Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления. Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков. Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2. Остаётся число 6. Проверим
9 килобайт = 9216 байт. Зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. В условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. Также мы знаем количество символов в одной строке. Умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. И, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице.
1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы.
2) 1 × 48 = 48 (байт) – информационный объём одной строки.
3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице.
Программу я написал на PascalABCnet
Объяснение:
program ex_1;
var n,i,k,a:integer; //n-номер числа i-счетчик k-количество чисел a-число
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(a);
if (a mod 5=0) or (a mod 5=5) then
k:=k+1;
end;
writeln('Количество чисел, оканчивающихся на 0 или 5: ',k);
end.