Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
insarycheva
21.01.2020 19:37 •
Информатика
Ввести число а. затем вводить последовательно числа (используя одну переменную x) и уменьшать a на число x. вводить числа, пока a не станет меньше x. на экран выдать a и x. решите
Показать ответ
Ответ:
darina1209
03.10.2020 11:02
Var a,x:integer;
begin
write('A = '); readln(a);
repeat
write('X = '); readln(x);
a:=a-x;
until a<x;
writeln('A = ',a,' X = ',x);
end.
Пример:
A = 35
X = 16
X = 8
X = 23
A = -12 X = 23
0,0
(0 оценок)
Ответ:
nastiarozhko
03.10.2020 11:02
Var a,x:real;
begin
readln(a);
readln(x);
while a>=x do
begin
a:=a-x;
readln(x);
end;
write('a=',a,' x=',x)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
roman81rudi
31.07.2022 00:04
Составить программу,формирующую произвольный массив(с функции random) из 40 элементов. все элементы,большие 50,заменить на -6...
polinas6661
08.07.2021 07:50
Два узла находятся в одной сети. IP1=211.115.61.154 IP2=211.115.59.37 Найти наибольшее возможное значение третьего слева байта маски, адрес сети, количество компьютеров в...
maximb164mjqj
16.11.2021 04:12
Составьте ребус для одного из следующих слов: монитор, процессор, курсор, клавиатура, модель....
Niknik00i1
18.03.2021 13:13
Информатика Имя массива Сколько элементов в массиве? Тип данных в массиве 2. Числовой одномерный массив А заполнен последовательно числами 324, 38, 523, 215,78,54. Укажите:...
KoreanSun1109
02.04.2023 02:36
Набор символов используемых для записи сообщении? 7 букв, четвертая а, последняя т?...
Victoria200188
02.04.2023 02:36
Что не относится к основным пользовательским характеристикам сканера? выберите один ответ: 1. размеры сканируемой области2. разрешающая разрядность битового представления4....
к2а2т2я
23.01.2020 12:06
Задача А Сортировка массива Время: 1 сек.Память: 16 МбДан массив А целых неотрицательных чисел, необходимо вернуть массив, состоящий из всех четных элементов A, за которыми...
romakim02kum
21.01.2020 15:46
Здравствуйте Нужно определить: род, число, падеж в прилагательных. Незабудка весь мир в себе держит в самой серёдке жёлтые тычинки — солнце, а вокруг голубые лепестки - небо....
annapalko044
01.01.2023 07:00
Допишите окончания прилагательных. Определите падеж данных прилагательных. Nom. им.п., Dat. – дат.п., Akk. – вин.п. 1. Wir haben eine freundlich… Katze zu Hause. 2. Ein lustig…...
kate832
01.01.2023 07:00
Прямая параллельная стороне АС треугольника АВС, пересекает стороны АВ и ВС в точках М и N соответственно, АВ=25, АС=30,MN=12. Найти АМ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('A = '); readln(a);
repeat
write('X = '); readln(x);
a:=a-x;
until a<x;
writeln('A = ',a,' X = ',x);
end.
Пример:
A = 35
X = 16
X = 8
X = 23
A = -12 X = 23
begin
readln(a);
readln(x);
while a>=x do
begin
a:=a-x;
readln(x);
end;
write('a=',a,' x=',x)
end.