Модераторы ! через 20 мин сдавать на
вещественные числа х, у, z являются исходными данными для следующего алгоритма: 1) переменной m присвоить значение х; 2) сравнить значения m и у: если у больше m, переменной m присвоить значение у; 3) сравнить значения m и z: если z больше m, переменной m присвоить значение z.
выясните, какую решает этот алгоритм. запишите его на языке программирования pascal. решите аналогичную для чисел х, у, z и w.

ответ:

для 3-х чисел:

var x,y,z,m: integer;

begin

readln (x);

readln (y);

readln (z);

m: =x;

if y > m then m: =y;

if z > m then m: =z;

writeln (m);

end.

для 4-х чисел:

var x,y,z,w,m: integer;

begin

readln (x);

readln (y);

readln (z);

readln (w);

m: =x;

if y > m then m: =y;

if z > m then m: =z;

if w > m then m: =w;

writeln (m);

end.

объяснение:

поиск наибольшего числа из 3-х и 4-х чисел

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов