Массив –
это группа однотипных элементов, имеющих общее имя и расположенных в памяти
рядом.
var A <span>: array[ 1 .. 5 ] of integer </span>
<span>A - имя массива</span>
<span>1 - начальный индекс</span>
<span>5 - конечный индекс</span>
<span>integer - тип элементов массива</span>
<span>
</span>
ні........
тому що вони майже однакові, хоча це залежить від формата
Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
Составьте таблицу истинности для выражения неА*неВ: 3 столбика - А, В, неА*неВ и 32 строки/не обязательно все чертить/. Мы знаем, что 8 строк в А и 8 строк в В - единицы, но их распорядок в таблице мы можем задать сами. Минимальное число единиц = максимально число нулей. Выражение неА*неВ=0, когда А=0 и В=1 ИЛИ А=1 и В=0. Значит, напротив 8 единиц в первом столбце А должны находиться нули в столбце В, а напротив единиц в В должны быть <span> быть нули в столбце А/это лучше нарисовать/. Тогда получается 8 строк, где А=1 и В=0, и 8 строк, где А=0, а В=1. В этих строчках неА*неВ=0. Всего их 16, это максимальное количество нулей. В остальных строчках, где А=0 и В=0, неА*неВ = 1. Таких строк 32-16=16. </span>
<span>Минимальное число единиц - 16</span>