Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
salievtrofim20
12.06.2021 15:21 •
Информатика
По информатике написать программу в которой будет вычитаться из числа 1000 числа,введённые пользователем с клавиатуры до тех пор, пока разность не станет меньше 0. примечание применить цикл repeat,until буду
Показать ответ
Ответ:
danilsalnikov
05.10.2020 07:25
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
Пример
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
Решение для "древних паскалей"
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
djekichan123
13.02.2022 23:28
Треугольник задан длинами своих сторон – a, b, c. определить является ли он тупоугольным, прямоугольным или остроугольным. решить на языке паскаль....
ПетяВасечкин485
24.05.2023 08:06
Реферат на тему: типи алгориимів...
Юліан11
18.07.2021 02:49
Тест по теме «Графики и диаграммы» 1 вариант 1. По какой оси откладываются значения независимой величины на графике? a. по оси абсцисс, b. по оси ординат; с. не имеет значения 2.Диаграмма...
knyzeva2804
20.01.2023 17:26
Запишите следующие высказывания в виде логического выражения,определив простые высказывания и используя логические операции: а) число 2005 нечетное и четырехзначное.б) если солнце...
hadisvv
07.05.2023 11:15
Написать программу на Паскале, в которой переменной Y присваивается значение наименьшей из четырех величин A, B, C и D. Входные данные задать с оператора ввода с клавиатуры. На проверку...
ujbgb
25.05.2021 18:08
1. Заполнить N-мерный массив числами 2, 1, 2, 1, …, не вводя элементы массива с клавиатуры, и вывести его на экран в строку в виде А[1] =…, А[2] =…. 2. Найти количество нулевых элементов...
Kylp
27.01.2023 12:38
при полном сгорании дизельного топлива массой 1,8 т выделяется количество теплоты 756⋅108 дж. определи удельную теплоту сгорания дизельного топлива....
filip198585
24.10.2021 23:41
Найти ординату точки графика функции , касательная в которой параллельна прямой y=-5x+.20...
Angelina1355555
14.09.2022 12:04
Составить таблицу действия при внезапном и при оповещении о землетрясении...
vika27072
12.03.2023 09:14
Через точки m і n проведено прямі перпендикулярні до площини бета які перетинають її в точках t і e відповідно. знайдіть відстань між точками m і n якщо mt=2м ne=5м te=4м і відрізок...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
Пример
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
Решение для "древних паскалей"
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.