Зона с охватом Wi-Fi ну как то так
Program Task;
Var a, b: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Среднее арифметическое: ', ((a + b) / 2):5:2);
ReadLn;
End.
Рассмотрим назначение переменных на примере.
Пусть задано число 34561.
Тогда n=34651 (введённое число сохраняется в переменной n). В цикле значение n меняется так: 3465, 346, 34, 3, 0.
Переменная c используется при получении цифр числа, т.е. в этой переменной последовательно будут значения 1, 5, 6, 4, 3.
В переменной mn сохраняется минимальная цифра, стоящая на чётном месте. Значения этой переменной: 9 (начальное значение), 6, 4.
Переменная i используется для определения места (чётное или нечётное) цифры числа. Начальное значение i=0, затем i в цикле увеличивается на 1: 1, 2, 3, 4, 5.
Sub Zadanie24891339()
A = CDbl(InputBox("A = "))
B = CDbl(InputBox("B = "))
if A > B then
c = A
A = B
B = c
end if
MsgBox "A=" & A & " B=" & B
End Sub
Zadanie24891339
Var s, s1:string;
begin
s:='русалки';
s1:=copy(s,6,1)+copy(s,1,1) + copy(s,4,1)+copy(s,3,1)+copy(s,2,1)+copy(s,5,1)+copy(s,7,1);
writeln(s1);
end.