Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
1)3000000:3=1000000 за секунду два сервера
2)1000000:2=500000 за секунду один сервер
3)500000*4=2000000 за секунду четыре сервера
4)2000000*4-8000000 за 4 секунды 4 сервера
Надеюсь помогла
Program one;var A, B, x: real;beginwriteln ('Введите А и В');readln (A, B);A:=A+10;B:=B/4;x:=A-B;A:=A*x;Writeln (A);end.
var
m, n, x : integer;
begin
write('введите m ');
readln(m);
write('введите n ');
readln(n);
writeln('значение функции y=x^2+8x-6 на промежутке от m до n');
for x := m to n do writeln('x=', x, ' y=', sqr(x)+8*x-6);
end.
Далее Я пишу причину и следствие.
Зима: людям нужно согреться - чай покупают чаще. Пирожные - с чаем обычно едят десерт, с чипсами то же самое, соответственно покупают чаще. Сок - не популярен, потому-что сок помогает освежится - альтернатива воде, зимой человек потеет меньше - меньше хочет пить.
Весна: Уже тепло - чай не особо нужен, активность людей поднимается - сок покупают чаще, Пирожные и чипсы - чай покупают меньше - сладкое покупают реже, Мороженое - все еще прохладно - охлаждать за счет мороженого не нужно.
Лето - Сок покупают чуть реже, потому-что в продаже появился лимонад, Пирожные и Чипсы - покупают чаще, потому-что активность выросла - нужна еда для восполнения энергии, Мороженое-Жара - нужно охлаждаться.
Осень: Чай - снова покупают, потому что стало холодней, Сок и Лимонад - активность снизилась, но все еще присутствует, Пирожные и Чипсы - нужны для восполнения оставшейся активности + к чаю, Мороженое - еще ~тепло и активность - нужно охлаждаться, но уже меньше, чем летом.