Достоинства:
1. Интуитивная понятность.
2. Возможность реализации с высокой степенью точности.
Недостатки:
1. Возможность образования скрытых каналов утечки информации.
1)
var x:integer;
beginwrite('который час? ');
read(x);
If (x>=0) and (x<6) then writeln('Спокойной ночи');
If (x>=6) and (x<12) then writeln('Доброе утро');
If (x>=12) and (x<18) then writeln('Добрый день');
If (x>=18) and (x<24) then writeln('Добрый вечер');
<span>end.
2)
var a,b,x:integer;
beginwrite('введите рост: ');
read(a);
write('введите вес: ');
read(b);
x:=a-100;
if x>b then writeln('Нужно поправиться')
else
writeln('Нужно поxудеть');
<span>end.</span></span>
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('Введите число');
var k:=s.Where(x->x in ['0','2','4','6','8']).Count;
Writeln(k,' четных цифр')
end.
<u><em>Тестовое решение:</em></u>
Введите число 235354634123215609898432
12 четных цифр
Программист.......................
Ничего сложного, простейшее задание
<span>Урывок кода*
sum := sum + mas[i];
pr := pr * mas[i];</span>