Кирилл решил потренироваться в сложных высказываниях. он заявил: "сегодня либо пойдет дождь либо будет сухо.завтра в школе будет контрольная по информатике.если я сегодня пойду в школу в дождь то я промокну и заболею.если я заболею то завтра не смогу писать контрольную.если я завтра хорошо напишу контрольную то послезавтра папа подарит мне новый монитор". через два дня вова сделала еще одно утверждение: какие высказывания могут быть однозначно истинны если все сказанное вовой истинно. 1.он не написал контрольную хорошо. 2.в первый день шел дождь. 3.если он писал контрольную то в первый день было сухо. 4.в школе не было контрольной. 5.он не заболел и не написал контрольную хорошо

👇

Увидеть ответ

Ответ:

kurbanov2017p05b7v

02.07.2021

Если он писал контрольную то в первый день было сухо

4,8(41 оценок)

Открыть все ответы

Ответ:

krubl

02.07.2021

Ақпарат (лат. informatio — түсіндіру, мазмұндау) ұғымы күнделікті өмірден бастап техникалық салада пайдаланылатын көп мағыналы ұғым. Жалпы алғанда бұл ұғым шектеу, байланыс, бақылау, форма, инструкция, білiм, мағына, құрылым, бейнелеу, сезіну тағы басқа ұғымдармен тығыз байланысты. Көп адам бұл жайлы Білім дәуірі немесе білім қоғамы тудырған Ақпарат дәуірі туралы айта бастады; ақпараттық қоғам, ақпараттық технологиялар, тіпті информатика, ақпарат ғылымы және компьютер ғылымы назарға көп түсуде, ал “ақпарат” сөзі білдіре бастаған мағыналары ұқыпсыз пайдаланылуда.[1]

4,7(17 оценок)

Ответ:

luska059

02.07.2021

// PascalABC.NET 3.0, сборка 1073
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,imax,jmax:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
imax:=1; jmax:=1;
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if a[i,j]>a[imax,jmax] then
        begin imax:=i; jmax:=j end
    end;
    Writeln
end;
for i:=1 to m do a[i,jmax]:=0;
for j:=1 to n do a[imax,j]:=0;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
end
end.

Тестовое решение:
Введите число строк и столбцов массива:
5 8
*** Исходный массив ***
11 -10 -25 -25 -19 -3 -2   0
-24   1   5 -25 -21 -16 -16 -22
-21 -10 -12   7 20 16   0 -10
-13 25 -18 18 -5   9 15   1
-19 -10 -16   9 -11 11 24 -19
*** Результирующий массив ***
11   0 -25 -25 -19 -3 -2   0
-24   0   5 -25 -21 -16 -16 -22
-21   0 -12   7 20 16   0 -10
   0   0   0   0   0   0   0   0
-19   0 -16   9 -11 11 24 -19

4,6(3 оценок)

Это интересно:

Искусство-и-развлечения

26.03.2021

Как найти свой танцевальный стиль?...

Компьютеры-и-электроника

23.02.2021

Битмоджи на Facebook: Как произвести впечатление на своих друзей...

Стиль-и-уход-за-собой

04.06.2021

Избавляемся от перхоти натуральными средствами...

Стиль-и-уход-за-собой