1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
n:integer;
s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do
begin
s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
n:=n+1
end;
writeln(n)
end.
2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
begin
s:=exp(n)-1000*Ln(n);
n:=n+1
end;
writeln(n)
<span>end.</span>
a:=(20+1)/3=21/3=7
(получается, что а присваивает значение 7)
b:=7-2*1=5
(b присваивает значение 5)
a:=7-5=2
Ответ: 2
Для определения, является ли число положительным достаточно сравнить его с нолём. Число больше ноля - положительное, меньше ноля - отрицательное. Сам по себе ноль не является ни положительным, ни отрицательным числом, но т.к. на ход решения это не влияет, этой деталью можно пренебречь. Алгоритм:
1. Начало
2. Ввести числа а и b
3. Если число a > 0 то запомнить a = a * 10
иначе запомнить a = a * a
4. Если число b > 0 то запомнить b = b * 10
иначе запомнить b = b * b
5. Вывести числа a и b
6. Конец
<span>Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 2</span>15<span> бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 2</span>19<span> бит/с). </span>
<span>Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 2</span>20<span> байт = 5 * 2</span>23<span> бит. </span>
<span>Время задержки: </span><span> = 512 кб / 2</span>19<span> бит/с = 2</span>(9 + 10 + 3) - 19<span> c = 2</span>3<span> c. </span>
<span>Время скчивания данных Мишей: </span><span> = 5 * 2</span>23<span> бит / 2</span>15<span> бит/с = 5 * 2</span>8<span> c. </span>
<span>Полное время: </span><span> = 5 * 2</span>8<span> c + 2</span>3<span> c = (256 * 5 + 8) c = 1288 c. </span>
<span>Ответ: 1288.</span>
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000