Ответ:
Объяснение:
"Идёт направо — песнь заводит,
Налево — сказку говорит".
Блок-схема конструкции ветвления:
1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.
1) 2¹⁶ б = 2³ * 2¹⁶=2¹⁹ бит / 2¹°=2⁹=512 кб
2) 2¹⁶ бит / 2³ / 2¹° = 2³=8 кб
3) 2¹³ б = 2³ * 2¹³= 2¹⁶ бит / 2¹°= 2⁶= 64 кб
4) 2¹³ бит / 2³ / 2¹°= 2°=1 кб
5) 2¹° б= 2³ * 2¹°= 2¹³ / 2¹°= 2³=8 кб
6) 2¹°б=2³ * 2¹°= 2¹³ / 2¹°= 2³=8 кб
var i:integer;
begin
for i:=10 to 99 do if i div 10=5 then write(i,' ');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.
<u>Результат</u>
Сумма=-8, количество слагаемых 4