Пример, когда лучше сначала подумать, а потом писать программу.
Если число делится одновременно на 5 и 21, то оно делится и на их произведение, т.е. на 105.
Количество таких чисел на указанном интервале может быть найдено как
Здесь "скобки" означают операцию взятия целой части.
Т.е. ответ уже получен, но раз требуется программа, то можно её написать так:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln((1000-105) div 105 + 1)
end.
1. Находим сколько в 10 см дюймов: 10/2.54≈3.9
2. Найдем количество пикселей отсканированного изображения:
3.9*3.9*600 = 9126
3. Учитывая, что 32 бита = 4 байт найдем информационный объем несжатого файла в байтах и переведем его в килобайты:
9126*4/1024≈36 Кбайт
Существуют специальные таблицы кодировки символов, в которых каждому символу соответствует свой уникальный номер.
На фото часть одной из таких таблиц.
А ниже программка на паскале, иллюстрирующая работу этих функций:
program aaa;
//Chr (x), Ord (x), Pred (x), Succ (x),
var x: integer; y,z: string;
begin
//присвоим переменной у значение символа под номером 102:
y:=chr(102);
writeln('chr(102)= ',y);
//присвоим переменной x номер позиции символа а в таблице кодировки Windows ASCII:
x:=ord('f');
writeln('ord(''f'')= ',x);
//а теперь возьмем символ русского алфавита "Ф":
x:=ord('Ф');//
writeln('ord(''Ф'')= ',x);
//Теперь нам нужен символ, следующий, например, за символом Ю:
y:=succ('Ю');
writeln('succ(''Ю'')= ',y);
//Или символ, предществующий символу Я:
y:=pred('Я');
writeln('pred(''Я'')= ',y);
end.
Результат работы программы:
chr(102)= f
ord('f')= 102
ord('Ф')= 212
succ('Ю')= Я
pred('Я')= Ю
Это интернет-технологии, где можно хранить объемы информации.