4-ое задание про "лет":
program zd;
var
a:1..40;
begin
writeln('Введите количество лет');
readln(a);
case a of
1,21,31: writeln('мне', a , 'год');
5..20, 25..30, 35..40: writeln('мне', a, 'лет');
2..4, 22..24, 32..34: writeln('мне',a, 'года');
end;
end.
Нашёл то, что было в тетрадке)
Предсказать что либо,исполуеться для общения с духами
И все
Лепс-спел, бар-раб, вес-сев, пот-топ, уже-ежу , думаю хватит.
Function IsArmstrong(m As Long) As Boolean
Dim s As Long, n As Integer, i As Integer, m1 As Long
Dim d(1 To 15) As Long
m1 = m: n = 0
Do While m1 > 0
n = n + 1
d(n) = m1 Mod 10
m1 = Int(m1 / 10)
Loop
s = 0
For i = 1 To n
s = s + d(i) ^ n
Next i
IsArmstrong = (s = m)
End Function
Sub Test()
Dim k As Long, i As Long, j As Integer
Cells.Clear
k = CLng(InputBox("Введите значение k"))
j = 1
For i = 0 To k
If IsArmstrong(i) Then
Cells(j, 1) = i
j = j + 1
End If
Next i
End Sub