Program proizv;
var i, n, p:integer; a:array[1..10] of integer;
begin
p:=1;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(a[i]);
If a[i]<>0 then
p:=p*a[i];
end;
writeln('p=',p);
end.
Для очень сложных расчётов, например: в астрономии (для расчётов расстояний для каких-либо космических объектов, звёзд, планет и даже вселенных). А так же, для очень ёмкостных операций (реже встречается, но я наблюдал как использовалось для подбора md5 hash'а путём переборов каждого символа).
<h2>Ответ:</h2>
То что выделено синим означает, что вы не поставили ' '.Это так потому что программа составлена правильно.K-это курс, он вводится.Поэтому делается именно так, происходит подсчёт.
Я уже делал у меня правильно.
Копия своего же ответа не запрещена.
A2 = 2 + 3 = 5
B2 = (5 + 1)/2 = 3
C1 = 5 - 3 = 2
C2 = 2 * 3 = 6
<em>Ответ:</em> Числовое значение ячейки С2 будет равняться 6.