Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
Чтобы в ячейке получилось значение (некоторой величины), в ней ДОЛЖНА быть формула.
Другое дело, что "вводить в каждую" не надо: записать формулу в угловой ячейке (d4) "=c4*d3", затем скопировать её на всю таблицу
Ответ:
Объяснение:-взять арбуз
-взвесить его на весах
-взять (70*масса арбуза) тенге у покупателя
-дать арбуз покупателю
F(5)=F(4)*7
F(4)=F(3)*6
F(3)=F(2)*5
F(2)=F(1)*4=1*4=4
F(3)=4*5=20
F(4)=20*6=120
F(5)=120*7=840
Ответ: f
Program qwer;
uses crt;
var s, r, d, l: real;
Begin
write('Площадь круга: ');
readln(s);
r := sqrt(s / 3.14);
d := r * 2;l := 2 * 3.14 * r;
writeln('Диаметр: ',d);
writeln('Длина окружности: ',l);
<span>End.</span>