3 года назад

Для какого из приведённых значений числа Х истинно высказывание: ((Х>2)+(Х<2))=>(Х>4)? 1)1 2)2 3)3 4)4

Знания

Информатика

1 ответ:

alex1409053 года назад

0 0

x>2 или x≤1

ложно, если x=2

((x>2) или (x>5))->(x<3)

(x>2)->(x<3)

если x>2 ложно, то всё выражение истинно

x=2

2<x≤3

x=3

x<3 и x≠2

x=1

Читайте также

Вычислить сумму и разность двух одномерных массивов содержащих 20 элементов. В массиве суммы найти максимальный элемент и его ин

Lomovtsev [7]

Var N,M,R,S:Array[1..20] of integer; i,min,q,k,max:integer;
begin
Randomize;
max:=-200; min:=200;
writeln('1 массив');
for i:=1 to 20 do begin
N[i]:= random(100)-50;write(N[i]:4);end;writeln;
writeln('2 массив');
for i:=1 to 20 do begin
M[i]:= random(100)-50;
write(M[i]:4);end;writeln;
writeln('массив Суммы');
for i:=1 to 20 do begin
S[i]:= N[i]+M[i];
if max < S[i] then begin
max:=S[i];q:=i;end;
write(s[i]:4);end;
writeln;
writeln('массив Разности');
for i:=1 to 20 do begin
R[i]:= N[i]-M[i];
if min > S[i] then begin
min := S[i];k:=i;end;
write(R[i]:4);end;writeln;
writeln('максимальный ' , max, ' его индекс ',q);
writeln;writeln('минимальный ' , min, ' его индекс ',k);
end.

0 0

3 года назад

Одноклеточная амёба каждые три часа делится на 2 клетки. Составьте алгоритм вычисления времени, через которое будет X амёб.

бумбара

...
while x<>1 do
begin
x:=x div 2;
inc (t);
end;
write (t);
...

P.S. твое врем я это степень двойки, а именно $2^{t} = x$

0 0

1 год назад

Паскаль. Написать программу разветвляющегося алгоритма решения ниже даннойзадачи на языке PascalЗадача:Даны два целых числа: A,

манархн

Program programm;

var A,B: integer;

begin

writeln('Введите число A: ');

readln(A);

writeln('Введите число B: ');

readln(B);

if (A > 1) and (B < -3) then

writeln('Неравенство ВЫПОЛНЕНО!')

else

writeln('Неравенствено НЕ выполненно!');

end.

0 0

4 года назад

Творческие задания по теме " Текстовый редактор " "Петя и Оля в стране Информатика ". Придумать сказку про путешествие детей в с

Михаил18-18 [6]

Http://pridumayskazku.ucoz.ru/publ/vzroslye_i_deti/scenarij_skazki_kompjuter_teremok_po_informatiki_.... сылка на сайт может быть это поможет

0 0

4 года назад

Ввести 6 чисел. Определить каких больше - четных или нечетных. Надо написать программу на языке паскаль очень прошу срочно.

stiks02 [169]

program nazvanie;
var a,b,b1,k,k1:integer;
begin
write('Введите трехзначное число: ');
readln(a);
b:=a;
while b<>0 do begin b1:=b mod 10;
if b1 mod 2=0 then k:=k+1 else k1:=k1+1;
b1:=b div 10;
b:=b1;
end;
if k>k1 then
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
else if k<k1 then write('Кол-во нечетных больше, чем четаных в числе ',a);
end.
Немного переделать и будет рабочая прога!

0 0

3 года назад