надо составить программу в паскале, в которой надо найти процент от заданного числа
10-11 класс
|
Program Percent;
uses crt;
var a,b:real;
begin
clrscr;
write('Enter the number: ');
readln(a);
write('Enter the percentage of the number you want to search: ');
readln(b);
if b<0 then begin
write('The percentage can not be negative!');
end
else
write('The percent of that number is ', a*(b/100):10:2);
readkey;
end.
Другие вопросы из категории
выведите их произведение. Если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE