Program jwbdjd;
var x: Integer;
begin
writeln('Введите значение x: ');
readln(x);
write('x³+5x+7+9x²=');
write('',x,'³+5×',x,'+7+9×',x,'²=');
write((x*x*x)+5*x+7+9*(x*x));
end.
Если прописать в паскаль этот алгоритм через цикл while (цикл с <span>предусловием)</span>, то ответ будет B=25.
var a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.
Во - первых рассмотрим простые высказывания:
М - Монитор неисправен
В - Видеокарта неисправна
О - Оперативная память неисправна
Во вторых: Запишем на языке алгебры логики возможные предположения: (M v B) --> O и M --> B
<span><span>Пусть </span><span>F</span><span>(М,В,О) = </span>(M v B) --> O и M --> B</span>
составляем таблицу истинности:
М В О M --> B
<span>0 0 0 1 </span>
<span>1 0 1 1</span>
<span> 0 0 0 1</span>
<span> 1 1 1 0 </span>
<span>0 0 0 1</span>
<span> 0 1 1 0</span>
<span> 1 1 0 0</span>
<span> 1 1 1 1</span>
<span> 1 0 0 0 </span>
<span>1 0 0 0</span>
<span> 0 1 1 1</span>
<span> 1 1 0 1</span>
<span> 0 1 1 0 </span>
<span>1 1 1 1</span>
<span>0 0 1 0 </span>
<span>1 1 0 1</span>
<span> 1 1 0 1</span>
<span> 1 0 1 1 </span>
Анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда М – истинно, т.е. вероятнее всего неисправен именно монитор.
1). По назначению (гражданскому или военному): грузовые, легковые, повышенной проходимости, автобусы, спортивные, бронированные, амфибии, самосвалы и т.п.
2). По типу двигателя: бензиновые, газовые, газогенераторные, дизельные, водородные, электромобили.
3). По конструкции: праворульные и леворульные, с ручной или автоматической коробкой передач.
4) По типу кузова: седан, универсал, хэтчбэк, купе, лимузин и т.д.
Все перечисленные множества являются подмножествами множества автомобилей.
Тогда 43бит, нужно все буквы, знаки и пробелы подсчитать