Var x, c:integer; a:real; begin write('Введите число: '); readln(c); write('Введите количество процентов: '); read(x); writeln('%'); a:=c/100*x; writeln('ответ: ',x,'% от числа ',с,' равно ',a); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
