Var
simple: array[1..10000] of integer;
i, j, a, b, simple_n, s: integer;
is_simple: boolean;
begin
read(a, b);
for i := 2 to b do begin
is_simple := true;
for j := 1 to simple_n do
is_simple := is_simple and (i mod simple[j] <> 0);
if is_simple then begin
simple_n := simple_n + 1;
simple[simple_n] := i;
writeln(i);
if i >= a then s := s + i;
end;
end;
writeln(s);
end.
Ответ:
Program example;
var a,x,y: Extended;
Begin
write('Enter a: ');
readln(a);
x:=sqr(a)+cos(a);
y:=8*x+5*(exp(ln(x)*(2-1)));
writeln('y = ', y:0:3);
End.
Объяснение: Если есть вопросы, то пишите мне в лс.
1)Опасность статического электричества заключается с одной стороны в том, что электрические разряды могут стать причиной пожаров и взрывов в тех отраслях промышленности, где применяют легковоспламеняющиеся вещества, с другой стороны, статическое электричество является препятствием для повышения производительности труда во многих отраслях промышленности из-за невозможности повышения скоростей движения, так как с увеличением скорости электризация резко возрастает.
Оживлёная улица.Мальчик идёт со школы с рюкзаком.На светофоре горит зелёный свет.Машины остоновились и мальчик начинает переходить дорогу.