<span>If (a>=10) and (a<=99)
then begin
writeln (a,'-двузначное число');
writeln ('его квадрат=', sqr(a));
end
else (a,' не является двузначным числом');</span>
Ответить не могу а подсказать удовольствием
гипертекст — текст, сформированный с помощью языка разметки, потенциально содержащий в себе <u>гиперсылки</u>
Program sum;
uses Crt;
Var i: integer;
sum, p, sr : real;
a : array [1..25] of real;
begin
Clrscr;
For i:=1 to 25 do
begin
write ('a[',i,']=');
readln(a[i]);
end;
sum:=0;
For i:=1 to 25 do begin
if a[i]>0 then sum:=sum+a[i];
end;
sr:=sum/25;
For i:=1 to 25 do begin
if a[i]<0 then p:=p*a[i];
end;
Writeln ('Sum=',sum:5:2);
Writeln ('p=',p:5:2);
Writeln ('Sr=',sr:5:2);
readln;
end.
720 бит, это 90 байт;
N =90/180=0,5 байта или 4 бита;
Ответ: 4 бита.
Вариант ответа 4 - PPT
P.S. Во втором варианте буква X означает что у презентации будет совместимость со старыми версиями PowerPoint( вроде бы с 1997-2003)