Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.
Ответ:
10
Объяснение:
Сложные высказывания, содержащие общее отрицание, полезно вначале преобразовывать, используя правило де-Моргана.
НЕ( (x ≥ 12) ИЛИ (x ПРОСТОЕ) )
НЕ(x ≥ 12) И НЕ(x ПРОСТОЕ)
Теперь "НЕ" имеют простые высказывания, выполним их инверсию (отрицание).
(x < 12) И (x НЕ ПРОСТОЕ)
Итак, нужно найти наибольшее число, для которого верно (истинно) полученное высказывание. Поскольку число меньше 12, будем рассматривать ряд чисел 11, 10, 9, ... и выберем первое встретившееся число, не являющееся простым. 11 - простое, а вот 10 - нет, оно имеет делители 2 и т.д. Поэтому ответ - 10.
Как-то глуповато получилось, но, как говорится, каков вопрос - таков ответ:
=IF(OR(ROW(A1)=1;AND(ROW(A1)=2;<span>COLUMN(A1)=2));1;0)
</span>
В Excel это будет так:
=ЕСЛИ(ИЛИ(СТРОКА(A1)=1;И(СТРОКА(A1)=2;СТОЛБЕЦ(A1)=2));1;0)
Var g:integer; p:real;
begin
p:=80000000;
g:=2004;
while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end;
writeln;
writeln('в ',g,' году население увеличится в трое.');
<span>end.</span>
Пусть S - ср.арифм. S := (x1 +x2)/2
k := k-1
i := i+1
пусть N - количество тетрадей, M - цена одной тетради, H - цена одной обложки, S - стоимость всей покупки, тогда S := (M+H)*N