Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
zhanar7777
13.11.2021 14:43 •
Информатика
Начав тренировки, лыжник в первый день пробегал 10 км. в каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. определить, в какой день он пробежит 20 км. составить программу в паскале. (оператор цикл. цикл с предусловием.)
Показать ответ
Ответ:
megakolbina
25.06.2020 10:52
Вариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
k1122
02.06.2021 16:57
и забирайте Используя циклический алгоритм for составьте программу для вывода: Код программы: public partial class Form1 : Form { int s1, s2; public Form1() { InitializeComponen();...
foton228
25.10.2022 05:41
Информатика 9 класс. , ! определите значение целочисленной переменной х после выполнения следующего фрагмента решением)...
svetlana50036
09.09.2022 06:45
Сколько 4-значных чисел можно составить из цифр 1, 3, 5, 7, 9, если цифры в записи числа могут повторяться? сколько 4-значных чисел можно составить из цифр 1, 3, 5, 7, 9, если...
Кристалина12
17.11.2020 02:51
Определите к какой группе относится устройство: принтер  жесткий диск  клавиатура  сканер  видеокамера  микрофон  монитор  колонки  варианты ответов--устройство вывода...
Ромашка242526
13.12.2021 00:06
Что можно назвать базой данных? записная книжка; энциклопедия; текст параграфа; телефонный справочник; ) заранее ))...
kotik12345566
24.07.2021 06:04
Шырақ қай өзенің бойында жылқы баққан?...
ева519
13.08.2020 01:55
Как зависит затухание и поглощение радиоволн в атмосфере от их частоты?...
molotower
22.02.2021 23:42
Спишите, вставьте пропущенные буквы. Составьте с тремя словами словосочетания сущ. + прилаг Суб...ктивный, об...ктивный, об...спечение, ко...есп...ндент,р...гистрация, пр...ют,...
891447819danilDanil
22.02.2021 23:42
Клейт хотел создать комедийного «Эдипа» - драму о судье, которое его же собственное расследование неожиданной игрой выясняемых фактов делает подсудимым. Какая публичная сила,...
Pedors
29.10.2022 12:15
План до тексту весна М.СТАРИЦЬКИЙ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
end.