Написать словесный алгоритм к private sub s() dim a as integer, s as integer a=val(cells(2,2).value) s=0 i=0 n=0 while s s=s+1 i=i+s n=n+1 cells(n+1, 1).value=str(s) wend cells(3,2).value=str(i) end sub

191

373

Посмотреть ответы 2

Ответы на вопрос:

4444asas

Информатика

4,4(44 оценок)

создаётся приватная функция типа void с названием s, в которой объявляются a, s типа int. a присваивается значение 2 строки 2 столбца таблицы excel, после чего s, i и n приравниваются к нулю. создаётся цикл (с непонятным условием), в котором к s и n прибавляется 1, к i прибавляется s. после этого к ячейке n+1 строки 1 столбца присваивается значение s, к строке. после цикла значению ячейки 3 строки 2 столбца присваивается значение i.

PASHA993r

Информатика

4,6(9 оценок)

Var n: integer; c: char; begin write('n (от 1 до 26): '); readln(n); for c: ='z' downto chr(ord('z')-n+1) do write(c: 2); end. пример: n (от 1 до 26): 5z y x w v