Var a:array [1..10] of integer;
var i:integer;
var sum, mul, n, t:integer;
begin
writeln('Введите 10 чисел:');
for i := 1 to 10 do begin
readln(a[i]);-
end;
sum := 0;
mul := 0;
n := 0;
for i := 1 to 10 do begin
t := a[i];
if t > 0 then begin
sum := sum + t;
if mul = 0 then begin
mul = t;
else begin
mul := mul * t;
end;
n := n + 1;
end;
end;
writeln('Сумма: ', sum);
writeln('Произведение: ', mul);
writeln('Количество: ', n);
end.
Где таблица по которой делать?
Program HelloWorld;var x1,y1,x2,y2:double;begin readln(x1); readln(y1); readln(x2); readln(y2); x1:=sqrt(x1*x1+y1*y1); x2:=sqrt(x2*x2+y2*y2); if(x1>x2) then writeln(x2:0:2) else if(x2>x1) then writeln(x1:0:2) else writeln('Одинаково близко',x1:0:2);end.
Ответ:
Интернет - изменил почти весь мир, без интернета как без рук
Смартфон - смартфон есть почти у каждого
Ответ:
Sub F(x)
If x > 0 Then y = Exp(x)
Else
If x < 0 Then y = Tan(x)
End If
End Sub
Объяснение:
Простейшие встроенные функции для и tg x.