Заведи массив и проверяй его if a[I] <> 0 then s:=s+1 else s:=s-1;
// С циклом:
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := 1;
for i := 3 to 7 do
begin
Proizvedenie := Proizvedenie * y[i];
end;
WriteLn(Proizvedenie);
end.
// Без цикла
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := y[7] * y[6] * y[5] * y[4] * y[3];
WriteLn(Proizvedenie);
end.
1. Имя переменной иначе называется:
В) идентификатор;
2. Тип переменной, определяющей площадь круга:
А) вещественный;
3. Какое из перечисленных значений может быть вещественным?
A)Корни квадратного уравнения;
4. Какое из приведенных значений может быть только константой?
C)количество продуктов, купленных в прошлом месяце;
5. Какое из приведенных значений должно быть переменной?
C)температура воздуха;
6. Какое из приведенных значений соответствует нормализованному виду числа 3600?
В)13.6ЕЗ; тут опечатка, должо быть 3.6ЕЗ
Что? .... Можно на русском?
Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.