Ответ:
Объяснение:
#include<stdio.h>
#include<math.h>
#include<locale.h>
main()
{
setlocale(LC_ALL,"rus");
int i,n;
float x,sum=0;
printf("Введите сколько раз выполнится цикл ");
scanf("%d",&n);
for(i=1;i<=n;i++)
{
x=((6*i)-1)/sqrt(2);
sum=sum+x;
}
printf("Сумма = %.3f",sum);
}
5)
program ex1;var x, y, z : integer;begin x:= 17; y:= -9; if x < y then z:= x * y else z:= y + x; writeln(z);end.
6)
program ex1;var x, tmp : real;begin readln(x); if x<=0 then tmp:=(sin(sqr(x)) - sqrt(power(x,3)+1))/(5*power(x,4)+ 3.5*x); if (x>0) and (x<=4) then tmp:=sqrt(x+sqrt(x+1))+4*x; if x>4 then tmp:= (1.44*abs(power(x,3)-1)-2.5*x)/(x+1);write(tmp);end.
7)
program ex1;var a,b,c:integer;begin readln(a,b,c); if (a>= -3) and (a<2) then write (' a '); if (b>= -3) and (b<2) then write (' b '); if (c>= -3) and (c<2) then write (' c ');end.
Вот в таком виде работает, чуть поправил список
в операторах writeln
program example;
var
t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<26 do
begin
n:=n+2;
writeln(t,n:6);
t:=t+3
end
end.
t n
3 3
6 5
9 7
12 9
15 11
18 13
21 15
24 17
<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
INPUT "x=", x
PRINT 1 - 2 * x + 3 * x ^ 2 - 4 * x ^ 3
PRINT 1 + 2 * x + 3 * x ^ 2 + 4 * x ^ 3
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
x=2.37
-40.1375
75.83891