Var q: Single; // Результат. Если число будет больше, то указать Double i: Single; // Число из которого необходимо получить результат. Если число будет больше, то указать Double p: Single; // Процент. Если процент будет всегда целым числом, то указать Byte begin writeln('Введите число => '); read(i); writeln('Введите процент, который хотите расcчитать из введенного числа => '); read(p); while p < 0 do begin writeln('Процент не может быть меньше нуля, введите новое значение => '); read(p); end; q:=(i / 100) * p; writeln('Ваш результат из числа => ', i, ', ', p, '% = ', q); end.
Соблюдать чистоту за рабочим местом. Не находится с напитками и едой за компьютером. За компьютером работать с чистыми руками. Рекомендации по организации работы за компьютером: 1) Сидеть прямо не напрягаясь; 2) Моргайте чаще во время за работой за компьютером, потому что каждое такое движение очищает глаза и производит своеобразный массаж; 3) Не рекомендуется работать на компьютере более 45 минут без перерыва; 4) Во время перерыва желательно делать короткую зарядку для глаз. Так вы сможете сохранить свое зрение в порядке на долгие времена.
На первом
Объяснение: