fork download
copy 
  1. var
  2.   Vin, Vout, Vhid: Real;
  3.   K, P: Real;
  4. begin
  5.   Writeln('Введите размер входных данных:');
  6.   Readln(Vin);
  7.   Writeln('Введите размер выходных данных:');
  8.   Readln(Vout);
  9.   Writeln('Введите размер скрытых данных:');
  10.   Readln(Vhid);
  11.  
  12.   K := Vin / Vout;
  13.   P := (Vhid / Vout) * 100;
  14.  
  15.   Writeln('Коэффициент сжатия равен: ', K:0:2);
  16.   Writeln('Процент скрытых данных равен: ', P:0:2, ' %');
  17. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
2000
30000
5000
60000
stdout
copy 
Введите размер входных данных:
Введите размер выходных данных:
Введите размер скрытых данных:
Коэффициент сжатия равен: 0.07
Процент скрытых данных равен: 16.67 %
https://ideone.com/rgjfIL
language:
Pascal (fpc 3.0.4)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!