Всего 16 клеток. Из формулы количества информации:
<span>2^i = 16 получаем i = 4 бита.</span>
Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
<span>Правильный ответ 7. Алгоритм считает сколько
исполнителей набрали меньше 25 голосов. Это 1-й,2-й,3-й,5-й,6-й,8-й,9-й
всего таких - 7</span>
Ответ:
Var i:integer
Begin
For i:=-5 to 5 do
Writeln (2*sin(0.2*i*3));
End.
Ответ:
Ходьба поворачиваться умирать возрождатся