tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
По информатике написать программу
По информатике написать программу в которой будет вычитаться из числа 1000 числа,введённые пользователем с клавиатуры до тех пор, пока разность не станет меньше 0. примечание применить цикл repeat,until буду
NwM12
1 20.08.2019 14:30
1
Ответы
an2015tep071hf
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
marinnka09
02.02.2021 15:46
Как вывести информацию в текстовом (символьном) варианте?...
mashkasuper1
02.02.2021 15:45
Здрасьте. у нас на дистационке по инфе дали такое задание Подготовить презентацию (7-10 слайдов), соблюдая правила оформления, на тему: Мультикомпьютерные и Мультипроцессорные...
b00777
02.02.2021 15:45
Нарисуйте блок схему задачи. дано:при вводе даты программа выводит название дня недели...
Алкадиеныч
02.02.2021 15:44
ППамагите информатика все на картинке умаляю всех вас...
альбина330
02.02.2021 15:43
Розробіть власний малюнок для черепашки у зошиті та запрограмуйте його створення у середовищі програмування та збережіть файл з назвою «Малюнок» до створеної папки надо очень...
Kamilla27042007
02.02.2021 15:41
Анализ Проанализируйте программу робота «Часовой». Обратите вниманна числовые параметры, используемые в блоках. Может ли робітвыполнить все функции военного часового? Какую функцию...
DmitriyGromov
02.02.2021 15:39
Какие таблицы называются вычислительными? Укажите правильный вариант ответа: Таблицы, описывающие набор свойств одного класса объектов. Любые таблицы, которые содержат числовые...
romantik17lol
02.02.2021 15:37
Запиши программу на поворот робота на 180 градусов по часовой стрелке в тетрадь быстро...
vikap888
02.02.2021 15:37
Запишите программу на поворот робота на 180 градусов по часовой стрелке в тетради...
KiskaSofia
02.02.2021 15:35
а=25.0 какой тип данных...
Популярные вопросы
Вычисли периметр прямоугольника В пине лежит несколько яблок. Их меньше десяти....
1
По математике! номер 404 и 405.Сразу два номера ! Заранее !...
2
4. Open the brackets. Put the verbs into the correct form.1. Andy and Daniel...
2
Площадь прямоугольника равна 54 см2. Найдите его стороны, если они относятся...
3
1)Справжнє прізв. Івана Сили? 2) Які почуття викликає Міха Голий? Хто такий...
2
3-тапсырма: мәтін бойынша жинақы мәтін жазыңыз...
2
Определите разряд имён прилагательных в словосочетаниях, продублируйте в тетрадь...
2
Какое количество вещества этана получится при пропускании 25 г этина, содержащего...
1
Составьте и напишите записку кошке с благодарностью от мышек для 2 класса...
1
Анализ стихотворения Юнна Мориц Не вспоминай меня. И не забудь...
2
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.