program name;//Имя программы
uses crt;
var
a:integer;
BEGIN write('Введите сумму: '); readln(a);
if a < 2500
then write('Подоходный налог составляет: 0 рублей от суммы ',a, ' рублей');
if (a <= 10000) and (a >= 2500)
then write('Подоходный налог составляет:', a*0.13 ,' рублей от суммы ',a, ' рублей');
if a > 10000
then write('Подоходный налог составляет:', (a-1300)*0.15 ,' рублей от суммы ',a, ' рублей');
ReadKey;
end.<span>
</span>
На картинке: стакан с напитком и эскимо на палочке с глазурью
Из (14) наливаем в (5)
из (5) наливаем в (9)
повторяем пункт 1
из (5) наливаем в (9) остается 1л
переливаем из (9) в (14)
выливаем 1л из (5) в (9)
из (14) наливаем в (5)
из (5) наливаем в (9)
в битоне(9) находится 6л молока
из (14) наливаем в (5)
из (5) наливаем в (9)
в битоне (5) остается 2л молока
переливаем из (9)в (14)
наливаем в (9) 2л молока из (5)
из (14) наливаем в (5)
<span>из (5) переливаем в (9)</span>
1) упрощаем логическое выражение
2) строим таблицу истинности
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println.Sorted.Println;
Writeln('Количество разных чисел ',a.Distinct.Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
60 33 12 47 79 81 33 26 73 98 82 81 71 70 96 48 13 66 29 85
12 13 26 29 33 33 47 48 60 66 70 71 73 79 81 81 82 85 96 98
Количество разных чисел 18