Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Ответ А будет лишним, остальные варианты это пакет office от ms
Ответ:
примерно так только я не знаю принцип работы
A = 60
b = 10
a = a-b*3 = 60-10*3 = 60-30 = 30
a<b ⇒ 30<10 ⇒ false ⇒c = b-a = 10-30 = -20
Ответ: c = -20