Чтобы в ячейке получилось значение (некоторой величины), в ней ДОЛЖНА быть формула.
Другое дело, что "вводить в каждую" не надо: записать формулу в угловой ячейке (d4) "=c4*d3", затем скопировать её на всю таблицу
В QBasic можно написать так:
CONST s = "электрорадиомонтёр"
CLS
PRINT LEFT$(s, 7) + MID$(s, 10, 1) + " " + MID$(s, 11, 1) + " ";
PRINT MID$(s, 4, 1) + MID$(s, 9, 1) + MID$(s, 5, 1) + MID$(s, 7, 1);
PRINT MID$(s, 10, 1)
PRINT MID$(s, 5, 1) + MID$(s, 3, 1) + MID$(s, 6, 1) + MID$(s, 13, 1);
PRINT MID$(s, 11, 1) + MID$(s, 15, 1) + MID$(s, 9, 1) + MID$(s, 5, 1);
PRINT MID$(s, 7, 1) + MID$(s, 6, 1) + " " + MID$(s, 16, 3) + " ";
PRINT MID$(s, 8, 5)
В VBA Microsoft Office можно так сделать
Sub aaa()
Const s = "электрорадиомонтёр"
l = Len(s)
ReDim a(1 To l)
For i = 1 To l
a(i) = Mid$(s, i, 1)
Next i
MsgBox Left(s, 7) + a(10) + " " + a(11) + " " + a(4) + a(9) + a(5) + a(7) + a(10)
MsgBox a(5) + a(3) + a(6) + a(13) + a(11) + a(15) + a(9) + a(5) + a(7) + _ a(6) + " " + Mid(s, 16, 3) + " " + Mid(s, 8, 5)
End Sub
А если в VB делать, то нужно нарисовать форму и прописать в коде какой-нибудь кнопки предыдущий код. Либо на форме организовать вывод в Label или какие-нибудь поля (Text, Edit).
Написать программу, которая выводит на экран сумму
ряда
<span>
пусть a – числитель;</span><span>b – знаменатель;</span><span>da и db – шаг для
числителя и знаменателя;</span><span>n - для смены знака; </span><span> </span>
Программа:
const
<span>da= -18; {927-945}</span>
<span>db=
24; {33-9}
</span>
var
a,b,n:
integer;
s:
real;
begin
s:=0;
n:=1; a:=945;b:=9;
<span>
while a>=27 do</span><span>
begin</span><span><span>
s:=s+a/b*n; {</span>подсчет суммы}</span><span>
a:=a+da;</span><span>
b:=b+db;</span><span><span>
n:= -1*n; {</span>изменение знака}</span><span>
end;</span>
writeln('s=',s:4:2);
<span>end.</span>
Var
i, b: integer;
m: array [1..10] of integer;
Begin.
For i:= 1 to 10 do
Readln (m[i],b);
S:= 0
If (m[i] div 10 = b) or ( m[i] mod 10 = b) then
S:=s+1
ну и концовку
Write (S);
End.
360 КБайт делим на 60 страниц, получаем 6 Кбайт на страницу.
В стандартной кодировке ASCII символ занимает 1 байт, тогда на странице помещается 6*1024=6144 символа