В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
ретс
ретс
23.12.2022 18:01 •  Информатика

Задача 1
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
(x<16) И НЕ (x четное)

Задача 2
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ((x>16) ИЛИ (x<10))

Задача 3
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ((x<16) ИЛИ (x четное))

Задача 4
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
(x<=8) И (x кратно 3)

Задача 5
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ (x>=30) И (x четное)

Задача 6
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
(x>30) И (x кратно 10)

Задача 7
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ(x<50) И (x кратно 10)

Задача 8
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ(x<50) И (x кратно 20)

Задача 9
Напишите НАИБОЛЬШЕЕ число х, для которого ЛОЖНО высказывание:
НЕ(x<50) ИЛИ (x <= 20)

Задача 10
Напишите НАИМЕНЬШЕЕ число х, для которого ЛОЖНО высказывание:
(x>=50) ИЛИ НЕ(x >= 20)

Задача 11
Напишите НАИБОЛЬШЕЕ число х, для которого ЛОЖНО высказывание:
НЕ(x<50) ИЛИ (x четное)

Задача 12
Напишите НАИМЕНЬШЕЕ число х, для которого ЛОЖНО высказывание:
(x>=20) ИЛИ НЕ(x >= 10)

Задача 13*
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
(x>14) И (x кратно 3) И (x кратно 2)

Задача 14*
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
(x<8) И НЕ(x кратно 3) И (x четное)

Задача 15*
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ((x>8) ИЛИ (x < 3)) И (x четное)

Показать ответ
Ответ:
ikaerlapova
ikaerlapova
01.02.2023 17:28
Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.
0,0(0 оценок)
Ответ:
KroJlick20178
KroJlick20178
15.10.2021 08:39
Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота