М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Braīŋľÿ
Braīŋľÿ
06.06.2023 14:22 •  Информатика

Всем , как это решить? каждая бактерия делится на две в течение 1 минуты. в начальный момент имеется одна бактерия. составьте блок-схему алгоритма вычисления количества бактерий через 10 минут. исполните алгоритм, фиксируя каждый шаг в таблице значений переменных. это информатика л.л.бососва, а.ю.босова п 2.4 34.

👇
Ответ:

блок-схема 
нач 
f - целое 
f :=1 
нц для i от 1 до 10 
f := f *2 
кц 
вывод b 
кон

№ шага i f Вывод 
1 - 1 - 
2 1 2 - 
3 2 4 - 
4 3 8 - 
5 4 16 - 
6 5 32 - 
7 6 64 - 
8 7 128 - 
9 8 256 - 
10 9 512 - 
11 10 1024 - 
12 10 1024 1024

4,5(92 оценок)
Открыть все ответы
Ответ:
Rawree258
Rawree258
06.06.2023
Что-то меня глючит. Я же вроде как отвечал...

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

VBS
4,8(81 оценок)
Ответ:
оооопп
оооопп
06.06.2023
Написал на 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
4,4(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ