Дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа м. если таких нет выдать сообщение об этом. на паскале. , и , без заумных команд, а так чтобы понятно было!
var m,x,n,p,i:integer; s:boolean; begin p:=1; writeln('Vvedite kolichestvo chisel:'); read(n); writeln('Vvedite chislo s kotorim sravnit:'); read(m); writeln('Vvedite cifri:'); for i:=1 to n do begin readln(x); if m<x then begin p:=p*x; s:=true; end; end; if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel'); end.
Для удобства построения таблицы истинности введем логические переменные. Обозначим 2*2=4 через a, 3*3=9 - через b. Тогда высказывание примет вид: Для этого выражения и построим таблицу истинности.
2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их. Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var a,n,k,i,j,s:integer; begin writeln('Количество учеников и количество оценок'); readln(n,k); for i:=1 to n do begin for j:=1 to k do begin write('Ученик № ',i, ' оценка № ',j,' = '); readln(a); s:=s+a; end; end; println('Средняя оценка группы ',s/(n*k):6:3); end.
var m,x,n,p,i:integer; s:boolean;
begin
p:=1;
writeln('Vvedite kolichestvo chisel:');
read(n);
writeln('Vvedite chislo s kotorim sravnit:');
read(m);
writeln('Vvedite cifri:');
for i:=1 to n do begin
readln(x);
if m<x then begin p:=p*x; s:=true; end;
end;
if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel');
end.