program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('введите вес бандероли');
readln (w);
if w < = n
then c: =10
else
if w mod n = 0
then c: =10+((w div n)-1)*5
else c: =10+5+((w div n)-1)*5;
d10: = c div 10;
d4: = (c-10*d10) div 4;
d1: = (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10: 10,' монет по 10 драхм');
writeln (d4: 10,' монет по 4 драхмы');
writeln (d1: 10,' монет по 1 драхме');
end.
результат работы программы:
введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме
1)Целые положительные представляются в компьютере в формате с фиксированной запятой. Отрицательные с дополнительного кода
2) операции с целыми числами занимают меньше времени, что повышает эффективность программы, также на запись целых чисел требуется меньше места. Любое целое число можно рассматривать как вещественное, но с нулевой дробной частью, т. е. можно было бы ограничиться представлением в компьютере вещественных чисел и реализацией арифметических операций над ними, однако для эффективного использования памяти ЭВМ, повышения скорости выполнения вычислений и введения операции целочисленного деления целые числа представляются специально для них предназначенными
3) 63 2
-62 31 2
1 -30 15 2
1 -14 7
2
1 -6 3
2
1 -2 1
1
6310 = 001111112 63^10 = 00111111^2
4)01001100=2^2+2^3+2^6=4+8+64=76
00010101=2^0+2^2+2^4=1+4+16=21
5)В восьмиразрядном формате можно сохранить числа занимающие не более чем 8 двоичных разрядов
Надеюсь,что
Поделитесь своими знаниями, ответьте на вопрос:
Тогда 7x^1 + 8x^0 = 71
7x = 63
x = 9
Девятиричная