Подсчитайте сумму и произведение всех последовательных чисел от 1 до 10
Срочно!!!

1
первую задачу не обязательно,а вторую пожалуйста решите! задача для Паскаля
3 ЭТО 55

Ответы и объяснения

  • Участник Знаний
2014-03-19T16:01:28+04:00
1)
var x:real;
begin
read (x);
writeln ((7*sqr(x)-3)/(5*x+2));
end.
2)
var x:real;
begin
read (x);
if (x<0) then writeln (abs(x));
if (x=0) then writeln (0);
if (x>0) then writeln (sqrt(x));
end.
3)
var i,sum,pr:integer;
begin
sum:=0;
pr:=1;
for i:=1 to 10 do
begin
sum:=sum+i;
pr:=pr*i;
end;
writeln (sum);
writeln (pr);
end.