Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub
Неправильно записан ответ на последний пример. Исправь.
А закономерность очень простая. Первоначально идет повышение на одну единицу (т.е. 1 → 2 → 3→...), а в дальнейшем понижение на одну единицу (т.е. ...→3→2→1)
Собственно и все :)
В Logisim эта конструкция работает, смотри картинку.
Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>
1 символ = 1 бит ,1 байт =8 битам, 1 килобайт =1024 байтам
2048=16777216