Вот блок-схема алгоритма выполнения домашнего задания по математике.
*Однако, обрати внимание!
На этапе проверки решения в тетради, может образоваться (РЕКУРСИВНЫЙ алгоритм т.е. Рекурсия)
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
1) В цикле по значениям переменой i от i=1 до i=19 выполнять сложение вида: s=s+i/(i+1)
на паскале это выглядит так:
var s:real;
begin
for var i:=1 to 19 do s:=s+i/(i+1);
writeln('Ответ: ',s);
end.
2) сложная прогрессия какая-то... могу предположить, что вида: 1+2*(i-1)+s_i-1
т.е.
1) 1+2*(1-1)+0=1
2) 1+2*(2-1)+1=4
3) 1+2*(3-1)+4=9...
тогда на паскале алгоритм:
var s,si:real;
begin
for var i:=1 to 10 do begin
si:=1+2*(i-1)+si;
s:=s+si;
end;
writeln('Ответ: ',s);
end.
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
if n mod 2 = 0 then WriteLn('Не любит')
else WriteLn('Любит')
End.
Паскаль АВС
Program Sanmy;
uses crt;
var
a,b,c,d:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln ('Максимальный элемент = ',a);
end.