Пиксель
(P.S)
Пишу сюда ещё т.к не менее 20 слов
Универсальное решение
var
a, d, s: real;
i, n: integer;
begin
writeln('Введите х, разность и n');
readln(a, d, n);
s := a;
for i := 2 to n do
begin
a := a + d;
s := s + a;
end;
writeln(s);
end.
1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
1)
uses crt;
var y,x:integer;
begin
writeln(x);
y:=COS(x/2)-SIN(x);
readln(y);
end.
2)
uses crt;
var a,y,x:integer;
begin
a:=0;
readln(x);
a:=0,5*x+1;
y:=0,5*sqr(a)+1,4*x-1;
writeln(y);
end.
3)
uses crt;
var d,x:integer;
begin
writeln(x);
d:=(1/3)*x*49+(4/6)*x*108+(2/6)*x*80;
readln(d);
end.
в первом случае 5, во втором 8.
