6)
Значение переменной а равно 6
7)
<span>Значение S
равно 73</span><span>
</span>
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Ответ:
Program a2;
var k, m, c: integer;
begin
readln(k, m, c);
if (k+m) >= c Then
writeln('Yes')
else
writeln('No');
end.
Объяснение:
k - денег у Вити, m - денег у Пети, c - стоимость покупок, если сумма денег больше либо равна стоимости покупок => расплатиться они за покупки смогут
Const
n = 3;
k = 3;
var
i,j,s1,s2:integer;
a:array[1..n,1..k] of integer;
begin
s1:=0;
s2:=0;
for i:=1 to n do
for j:=1 to k do
begin
Writeln('Введите a[',i,',',j,']:');
readln(a[i,j]);
if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j];
if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j];
end;
if s1>s2 then
for j:=1 to k do
begin
a[1,j]:=s1;
a[n,j]:=s1;
end;
if s2>=s1 then
for i:=1 to n do
begin
a[i,1]:=s2;
a[i,k]:=s2;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to k do
write('a[':4,i,',',j,']=',a[i,j]);
writeln;
end;
end.
Если это Exel, тогда в формуле просто заменятся сами ечейки, а формула останется прежней.(советую проверить на любой формуле, т.к. Word бывает разных версий и настроек, но должно быть как я и описал)
Т.е. было допустим =sum(C1:C3) а после копирования =sum(E2:E4)