Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ddfgdfgdfg
27.09.2022 02:49 •
Информатика
Ввести число а. затем вводить последовательно числа (используя одну переменную x) и уменьшать a на число x. вводить числа, пока a не станет меньше x. на экран выдать a и x. решите
Показать ответ
Ответ:
Gazeerovka
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 оценок)
Ответ:
Vladchery
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 оценок)
Популярные вопросы: Информатика
vugarjalilovp0ci9p
12.04.2023 05:19
Постройтел логические схемы по формулам f=avb& c,если a=1,b=0,c=1 f=(avb)& (cvb),если a=0,b=1,c=0 f=(a& b& c),если a=0,b=0,c=1...
IlonaBilash24
14.10.2021 12:55
Решит с ! в кодировке кои-8 каждый символ кодируется одним байтом. определите информационный объем сообщения из 30 символов в этой кодировке...
Darina1110
14.10.2021 12:55
Штирлицу удалось похитить пароль от сейфа с секретными материалами — группенфюрер мюллер неосторожно написал его на бумаге и, порвав на несколько частей, выбросил в урну. штирлиц...
Ясминка2006
16.07.2021 01:43
Цель работы: изучение методов разработки алгоритмов обработки многомерных массивов данных и их запись в виде блок-схем. : найти сумму элементов квадратной матрицы а[m, m], расположенных...
danilcoptsov1
16.07.2021 01:43
Штирлицу удалось похитить пароль от сейфа с секретными материалами — группенфюрер мюллер неосторожно написал его на бумаге и, порвав на несколько частей, выбросил в урну. штирлиц...
АнастасияСтр
07.02.2023 01:57
На экран вводится последовательность натуральных чисел, не превышающих 1000. последовательность заканчивается числом 0. количество чисел в последовательности не превышает 100....
artemchik25
30.07.2021 07:38
Кто такой Администратор?...
Елька165
19.01.2021 23:33
В некоторой стране алфавит содержит 8 символов Найдите информационный вес каждого символа этого алфавита...
Викушка111111
14.01.2022 04:31
Упростите логическое выражение A * (!B * !C + B * C) + (B * !C + !B * C)...
chekirisalina
26.11.2020 23:56
1) Вставь пропущенное слово Первая массовая компьютерного вируса произошло в 1986 году. 2) Выбрать правильное определение «Компьютерного квируса» А) Это система хранения файлов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.