*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
Во вложении - файл с рабочей книгой Excel 2003. Поскольку на мои вопросы ответов не последовало, написал так, как понял задание.
Форма появляется, если переключиться между листами рабочей книги кликом мышью по ярлычку листа.
Sub m2()
Cells.Clear
Dim n As Integer, i As Integer, min As Integer
n = InputBox("n(>5) = ")
Cells(1, 1).Value = "n = " + Str(n)
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox("a(" + Str(i) + ")")
Next i
Cells(2, 1).Value = "Исходный массив"
Range(Cells(3, 1), Cells(3, n)).Value = a
min = a(1)
For i = 2 To n
If a(i) < min Then min = a(i)
Next i
Cells(4, 1).Value = "min = " + Str(min)
Cells(5, 1).Value = "Полученный массив"
For i = n - 4 To n
a(i) = min
Next i
Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub
5 литров наливаем в 8. 5 литров наливаем в 3,остаток 2 литра.Эти 2 литра наливаем в 8,итог 7 литров
Работает при условии, что А - не отрицательное число:
Var A:integer;
Begin
Write('A = ');
Read(A);
While A >0 do
Begin
A:=A-3;
End;
if A=0 then Write('А кратно трём')
else Write('А не кратно трём')
End.
Var
A:integer;
Begin
Write('A = ');
Read(A);
While A >3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от деления А на 3: ',A);
End.
