Тағайындау операторлары мен Z айнымалысының мәндері арасындағы сәйкестікті орнат

Ответы

Ответ дал: Гость

импликация — бинарная логическая связка, по своему применению приближенная к союзам «если… то…».

импликация записывается как посылкаследствие; применяются также стрелки другой формы и направленные в другую сторону (остриё всегда указывает на следствие).

суждение, выражаемое импликацией, выражается также следующими способами:

посылка является условием, достаточным для выполнения следствия; следствие является условием, необходимым для истинности посылки. x={"студент сдаст хорошо сессию"} y={"папа купит ему машину"}. однако, это не совсем удачная иллюстрация, потому что как-то не близка к действительности. напомню, что x-> y == 0 только в том случае, если студент действительно хорошо сдал сессию, а папа машину ему не купил (наоборот, если студент сдал плохо, а папа купил ему машину, то папу лжецом уж точно не назовёшь).

Ответ дал: Гость

program xxx;

var i, n : integer;

s : real;

a : array [1..20] of real;

begin

writeln('введите размерность массива n=');

readln(n);

write('введите элементы массива а: ');

for i: =1 to n do

readln(a[i]);

writeln('исходный массив а: ');

for i: =1 to n do

writeln(a[i]);

s: =0;

for i: =1 to n do

if a[i] mod 2 = 0 then s: =s+a[i];

writeln('сумма четных элементов =', s);

readln

end.

Ответ дал: Гость

напиши само ,я

Ответ дал: Гость

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;

beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;

end.