Внекотором городе разговоры по телефону оплачиваются следующим образом. если абонент использовал не более 300 минут (норма), то оплата составляет 20 копеек за минуту. оплата каждой минуты сверх нормы составляет 25 копеек. выберите формулу, позволяющую вычислить стоимость разговоров, если количество минут занесено в ячейку d4 электронной таблицы. формат команды: вместо если(условие; выражение 1; выражение 2) подставляется выражение 1, при выполнении условия и выражение 2 при невыполнении. выберите один ответ: a. =если(d4 < = 300; d4*0.2; 300*0.2 + d4 * 0.25) b. =если(d4 < = 300; d4*0.2; 300*0.2 + (d4 - 300) * 0.25) c. =если(d4 < = 300; d4*0.2; d4*0.25) d. =если(d4 < = 300; d4*0.2; 300*0.2 + (300 - d4) * 0.25)

1)
abs(x*x - 20) / Cos(y) + 5*x*sqrt(y)

2)
t :=1
if r >10then r:=r+1;t:=8;

a)
При r=17 условие выполняется, значит r увеличится на единицу.

Команды не связаны операторными скобками (begin r:=r+1;t:=8; end),
поэтому t:=8; выполнится безусловно.

r=18;  t=8;

б)
При r = 9 условие не выполняется, поэтому значение r останется неизменным.

r = 9;  t = 8;

3)
for i:= - 10 to - 9 do
begin k:=i;write(k);end.

Цикл For не выполнится ни разу. На экран не будет выведено ничего.

Цикл "For i:= A to B do" выполняется B-A+1 раз, при условии, что B>=A.
В нём значение i меняется от A до B, с каждой итерацией прибавляется единица.

Цикл "For i:= A downto B do" выполнится A-B+1 раз, при условии, что A>=B
В нём значение i тоже меняется от A до B, но с каждой итерацией от i отнимается единица.

4)
а)
Var
A:integer;
Begin
Write('Введите сумму покупок: ');ReadLn(A);
if A<5 then Write('Скидка не предоставляется')
else if (A>=5)and(A<10) then Write('Скидка: 0.5%')
     else if (A>=10)and(A<20) then Write('Скидка: 2%')
          else Write('Скидка: 5%')
End.

б)

Var
A,i:integer;
Begin
For i:= 1 to 10 do
Begin
Write('Введите сумму покупок: ');
ReadLn(A);
if A<5 then WriteLn('Скидка не предоставляется')
else if (A>=5)and(A<10) then WriteLn('Скидка: 0.5%')
     else if (A>=10)and(A<20) then WriteLn('Скидка: 2%')
          else WriteLn('Скидка: 5%')
End
End.

1)а

var a:real;

begin

readln(a);

a1 := a*a;  /получили а^2
a := a1*a1;  /получили a^4

a := a1*a*a;  /получили a^(4+4+2)

writeln(a);

end.

 

1б)

var x:real;

i:integer;

begin

readln(a);

a1 := a*a*a;  /получили а^3
a := a1*a1*a1;  /получили a^9

a := a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

 

2)

var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.

 

3)var a:real;
begin
readln(a);

writeln('В килобайтах' a/1024);

writeln('В мегабайтах' a/(1024*1024));

end.