// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
1.
Нам нужно, чтобы высказывание давало ложь. Поступим проще. Уберём НЕ перед выражением, то выражение будет давать истину:
<span>(Первая буква согласная) И (Последняя буква гласная)
</span>Первая буква согласная и последняя буква гласная только у имени Дарья.
2. Пошагово
a:=1
<span>b:=4 </span>
<span>a:=2*a+3*b = 2*1+3*4 = 14</span>
<span>b:=a/2*b = 14/2*4 = 28
</span>
Ответ 28
256000 бит/с = 32000 байт/с = 31.25 кбайт/c
<span>375 / 31.25 = 12 секунд </span>
1)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
while abs(a0-a1)>=eps do
begin
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
end;
writeln(a1);
end.
2)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
repeat
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
until abs(a0-a1)<eps;
writeln(a1);
end.
Пример:
1.2 0.9
<span> 2.41185904021433E-006</span>
5120 * 24 = 122880 бит
122880 / 15 = 8192 бит / с