Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
10802
18.03.2023 20:09 •
Информатика
Составить программу на языке паскаль. спортсмен в первый день пробежал 10 км. каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. через сколько дней спортсмен будет пробегать более 20 км в день?
Ответ:
лорею
04.10.2020 05:33
Var s:real; n:integer;
begin
s:=10;
n:=1;
while s<20 do
begin
s:=s*1.1;
n:=n+1;
end;
writeln(' n = ',n);
end.
Результат:
n = 9
0,0
(0 оценок)
Популярные вопросы: Информатика
tatarincevai
25.08.2021 00:55
Пайтон!!Програма яка для введених 10 цілих чисел визначить скільки з них більше 5...
dastanemilbeko
19.10.2021 21:35
ЕСЛИ ОТВЕТ ВАШ НЕПРАВИЛЬНЙ, Я ЕГО СРАЗУ УДАЛЮ И ВЫ БАЛЫ НЕ ПОЛУЧИТИ...
2345Pomogite2345
22.09.2020 18:02
Лиля составляет 5буквенные слова из букв С О Т К А П Л З. Слово не должно заканчиваться на гласную и содержать сочетание ЗЛО. Буквы не повторяются, сколько слов может составить Лиля...
nomakade
04.02.2020 11:51
Массив A = [1,3,5,7,9,12,15] . Определите какое число будет выведено на экран после выполнения фрагмента программы: d=0 for i in range(7): if A[i] = 10: d = d + 1 print(d)...
СофьяШафоростова
04.05.2021 08:59
с вопросами я не могу понять потому что не разбираюсь в роботах...
Kamilena2010
05.03.2020 11:52
почему когда качаешь игру с торента вместо установщика вылазиет папка торента игру нужно скачать что бы с другом поиграть,...
ПеЧеНьКа5608
22.12.2020 03:50
Напишите средства для ввода в пк....
TheEasyCloud
08.05.2021 03:41
(С циклом for i in range и массивом)...
индокролбак
24.05.2020 13:40
Створити графічну блок-схему з розгалуженням повної форми(можна і намалювати)...
privetjakot
20.05.2021 19:28
Дано n целых чисел. кожне число вводиться в окремому рядку. обцислiть сумму чисел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
s:=10;
n:=1;
while s<20 do
begin
s:=s*1.1;
n:=n+1;
end;
writeln(' n = ',n);
end.
Результат:
n = 9