Ответы на вопрос:
Написал на vbs, тот же бейсик, который есть в школах dim years years = inputbox("введите ваш возраст") if years = 1 then msgbox("мне 1 год") end if if years = 2 then msgbox("мне 2 годa") end if if years = 3 then msgbox("мне 3 годa") end if if years = 4 then msgbox("мне 4 годa") end if if (years > = 5) and (years < = 19) then msgbox("мне "+cstr(years)+" лет") end if if years > = 20 then dim s s = "мне "+cstr(years) if (years mod 10 = 1) then s = s + " год" end if if (years mod 10 > = 2) and (years mod 10 < = 4) then s = s + " годa" end if if (years mod 10 > = 5) and (years mod 10 < = 9) then s = s + " лет" end if if (years mod 10 = 0) then s = s + " лет" end if msgbox(s) end if
Популярно: Информатика
-
270320009635824604.03.2020 21:11
-
denmalyshevs28.03.2020 11:06
-
Ороохзшрорр05.01.2023 03:04
-
метрон13.10.2022 23:51
-
casha20126.03.2022 15:46
-
ektgdb01.10.2021 21:53
-
20Iulia25.02.2023 06:53
-
МасенькаЗайка22.10.2021 03:55
-
panda243818.11.2021 07:49
-
turebekrasul24.02.2021 04:24