1. Информатика
  2. Введите число и вычитать

Введите число и вычитать из него по 0,5 до тех пор пока оно нестанет меньше 1

ayperi2 ayperi2    3   22.05.2019 08:35    0

Ответы
ApTeM098 ApTeM098  17.06.2020 15:42

Объяснение:

var a,b: real;

 n,i: integer;

begin

 readln(a);

 b:=0.5;

 while a>1 do

  begin

    a:=a-b;

  end;

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
TANYA889933 TANYA889933  15.04.2021 21:21
Антивирусная программа Преимущества Недостатки...
УмНяша01 УмНяша01  15.04.2021 21:43
Напишите программу для машины Поста, которая складывает два числа, записанных в унарной системе. Числа расположены на неизвестном расстоянии друг от друга. Каретка находится над...
bringm1 bringm1  15.04.2021 21:51
Виконати проєкт «Гра Мавпеня» (фото зошита і скрипта зі сценою здати у Classroom) Скласти проєкт, в якому виконавець Мавпеня рухається по сцені за до кнопок управліннякурсором...
rokovayajenshi rokovayajenshi  15.04.2021 21:53
Чтобы компьютер понимал команды на языке Python, была придумана специальная программа —...
виквик4 виквик4  15.04.2021 21:54
Спроектировать на с++ домашнее животное...
Taimy Taimy  15.04.2021 22:03
Выполните программу для указанных значений переменных A и B и заполните пустые ячейки. Задание прикреплено в виде фотографии....
Агаисмаил1 Агаисмаил1  15.04.2021 22:06
Как убрать эту нумерацию строк подскажите...
Назар19 Назар19  15.04.2021 22:09
Какова значимость различных гиперссылки при создании документа в текстовом редакторе? Ребята, ,я запуталась вообще уже!☹️...
Ника72432525 Ника72432525  15.04.2021 22:24
Из 9 монет одинакового достоинства одна фальшивая (более легкая). За какое минимальное число взвешиваний на чашечных весах без гирь вы можете её определить ДАЙТЕ ОТВЕТ 6 класс...
айсу17 айсу17  15.04.2021 22:25
2. Розробіть для участі в конкурсі буктрейлерів презентацію з розпо- віддю про вашу улюблену книжку. Доберіть текст, зображення,фрагменти відео. Використайте музичний і мовний...

Популярные вопросы