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
v - Дизъюнкция, истина, если хоть одна из переменных истина. Т.е ложно оно бывает только когда обе ложные (0)
И вот теперь тупо смотришь в таблицу.
B&C
Смотрим на первую строку. Они обе 0, т.е ложные, значит в столбце B&C в первой строке тоже 0. Дальше,вторая строка. Теперь B - 0, C - 1, тоже пишем 0, т.к истинно только одно. И т.д. В итоге истина только в 4 и 8 строке. Остальное нули.
Потом у тебя идёт A v (B&C). Смотришь на столбец А, и столбец, который ты только что заполнил. Аналогично. Т.е тут будет, что до 4 строки - ложь, а после и до конца - истина. т.к хоть одна истина будет.
Тоже самое и с другими.
writeln('Площадь поверхности Земли=510100000 км.^2);
writeln('Объём Земли=1083 млрд. куб. км.');
writeln('Плотность Земли=5,51 г/см^3');
end.