Const xn=-1.5; xk=1.5; h=0.1;
var x,y:real;
begin
x:=xn-h;
writeln(' x y');
repeat
x:=x+h;
y:=2*exp(-x)*cos(1.7*x-0.3);
writeln(x:4:1,y:7:3);
until x>=xk;
<span>end.</span>
Аххаха, ты тоже с Харькова с программирования в 14 гимназии?
Скопировал из телеграмма?)))
1 байт = 8 бит .
Значит 100 делим на 8 = 12.5
Ответ: 12,5 Мбайт/с.
Var n,i,s:integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 30
1. Потеря брата
2. Печка и ржаные пирожки
3. Лесная яблонька
4. Молочная река, кисельные берега.
5. Избушка Бабы Яги
<span>6. Возвращение домой</span>