Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
2) writeln (copy(s1,2,6));
3) delete (s,1,5);
Y = 2 × a × b - c; a = 2, b = 6, c = -1,
y = 2 * 2 * 6 - (-1),
y = 4 * 6 - (-1),
y = 4 * 6 + 1,
y = 24 + 1,
y = 25.
Ответ: y = 25.
var
a: array [1..10] of integer;
i,count:integer;
begin
count:=0;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
В общем всё на фотках на первой прога на второй блок схема, блок схема устаревшего образца как говорит (Эникей), хотя на ЕГЭ писал почти такую же и получил максимальный балл по заданию, если интересно я прикрепил ещё его вариант оформления цикла for только там блок схема для другой программы.