Var s: integer;
begin
readln(s);
if (s=12) or (s=1) or (s=2) then writeln('зима')
else
if (s=3) or (s=4) or (s=5) then writeln('весна)
else
(s=6) or (s=7) or (s=8) then writeln('лето')
else
writeln('осень');
end;
Дизъюнктивная нормальная форма (ДНФ)
Простой конъюнкцией или конъюнктом называется конъюнкция некоторого конечного набора переменных или их отрицаний, причём каждая переменная встречается не более одного раза. Дизъюнктивной нормальной формой или ДНФ называется дизъюнкция простых конъюнкций.
Конъюнктивная нормальная форма (КНФ)
Конъюнктивная нормальная форма1 (КНФ) определяется двойственно к ДНФ. Простой дизъюнкцией или дизъюнктом называется дизъюнкция одной или нескольких переменных или их отрицаний, причём каждая переменная входит в неё не более одного раза. КНФ — это конъюнкция простых дизъюнкций.
Program n1;
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(101);
write(a[i],' ');
if a[i] mod 15=0 then k:=k+1;
end;
writeln;
writeln('кол-во кр. 15: ',k);
end.
var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.