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

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

Задать свой вопрос
Шорр Саша
Это программку необходимо написать?
Борис Плоскирев
Да написать
Alena Abullina
На чем?
Анна Тесмирджанова
Паскаль?
Андрей Бердинский
На любом языке
1 ответ

Ответ:

Разъясненье:

var a,b: real;

 n,i: integer;

begin

 readln(a);

 b:=0.5;

 while agt;1 do

  begin

    a:=a-b;

  end;

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт