Задача 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 четное)
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.
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.