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) обрабатывается - ученик решает уравнение 2) упрощается - преподователь объясняет материал 3) создается - журналист придумывает статью 4) запоминается - парнень запоминает номер телефона девушки 5) измеряется - программист рассчитывает сколько бит займет программа 6) копируется - ученик списывает у одноклассника 7) передается - две девушки обмениваются новостями 8) принимается - ученики слушают учителя на уроке 9) разрушается - статья журналиста отвергается 10) делится на части - человек разбирает сообщение в котором пропущены пробелы 11) ищется - человек ищет материал для реферата в интернете
Объяснение:
всё в одно фото не вместилось сори