Всмысле?
ну вид такой будет:
program z1;
var i:integer;
begin
for i:=1 to 5 do
<КАКАЯ-ТО ОПЕРАЦИЯ>
END.
У этого редактора своеобразный интерфейс, который ни на что не похож, он не похож на Word или Excel.
Я расскажу, про мои методы работы в нем.
Я выбираю команды не путем выбора пиктограммы, а нажимая hotkey на клавиатуре (типа Shift+C для обрезки и прочие). Масшаьируюсь колесиком с зажатым Ctrl. панорамируюсь средней кнопочкой.
Он поддерживает и графические планшеты, так что в нем можно рисовать и с дигитайзера и кнопки (виртуальные и физические) на нем тоже работают и на них тоже можно навесить нужные для вас команды.
Сначала едут двое детей , один остается ,а второй едет обратно , от туда едет Муж , а первый ребёнок едет обратно , потом опять едут двое детей ,одни остается , второй возращается , от туда едет жена , а обратно второй ребенок и потом двое детей едут к родителям
Ответ 100% правильный: 2D,D8
Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub