Регистрация
raku13
16.04.2023 09:47
Информатика
Есть ответ 👍

Постройте логическую схему для заданной таблицы истинности.

166
433
Посмотреть ответы 1

Ответы на вопрос:

mcanya1
mcanya1
4,8(58 оценок)

var

  a,b: array [1..10] of integer;

  i: integer;

  s1,s2: real;

begin

  randomize;

  for i: =1 to 10 do begin

    a[i]: =random(12)-1;

    s1: =s1+a[i];  

    b[i]: =random(9)+1;  

    s2: =s2+b[i];  

    write (a[i],' ');

  end;

  writeln;

  for i: =1 to 10 do write (b[i],' ');

  writeln;

  s1: =s1/10;

  s2: =s2/10;

  writeln ('s1 = ',s1);

  writeln ('s2 = ',s2);  

  if s1> s2 then writeln ('s1> s2') else

  if s1< s2 then writeln ('s1< s2') else writeln ('s1=s2');

  readln;

end.

Популярно: Информатика