Var A,L: real;
begin
readln(L);
A:=((exp(ln(L)*3)-8.5)/7.6)+10*sqr(L);
writeln(A);
end.
1) 1,357е+5 меньше, чем 1357е+1
2)137,12е+5 больше, чем 1,3711е+7
3)153,79е-3 больше, чем 1,5379
Информатика (1) – это видовое понятие. Наука (2) – родовое понятие. Аспекты получения, хранения, преобразования, передачи и использования информации (3) – видовое отличие
Var x, i: integer;
a: array [0..9] of integer;
begin
for i := 0 to 9 do
begin
readln(a[i]);
if (a[i] < 0) then x := x + a[i];
end;
writeln(x);
<span>end.
Вот так это сделать можно)</span>
НЕ (число четное) = (число не четное)
Нам нужно, чтобы выражение было ложно, то есть число не может быть четным и должно быть >=70
Ответ 72