1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт
Если Вы хотите чтобы выводился результат выражения b*b*(5*a-150), то Вы пропустили скобку.
Текст программы выглядит так:
program Vasiljev_hw6;
var
a: integer;
b: integer;
begin
writeln('Васильев Алексей 7А Вариант6');
writeln('Введите переменную a: ');
readln(b);
writeln('Введите переменную b: ');
readln(a);
writeln(b * b * (5 * a - 150));
end.
Опять же, я не понимаю почему Вы выводите 'Введите переменную а', а считываете b, и наоборот
Var x, i: integer;
a: array [0..9] of integer;
begin
for i := 0 to 9 do
begin
readln(a[i]);
if (a[i] < 0) then x := x + a[i];
end;
writeln(x);
<span>end.
Вот так это сделать можно)</span>
........Да, съедобный........
325 : 324 = 1( остаток 1)
324 = 9*9*4 - при делении числа 325 на эти сомножители или их произведений в остатке будет 1 - последняя цифра в числе системы счисления, соответствующей делителю.
Возьмём число 9, переведём 325 в 9с/с:
325 :9 = 36 (остаток 1
36:9 = 4 (остаток 0)
325 = 401 в 9 с/с
Ответ: 9