Определить максимальное и минимальное из трех вещественных чисел, вводимых с клавиатуры.

159

332

Посмотреть ответы 2

Ответы на вопрос:

chiprianv1

Информатика

4,6(73 оценок)

Program project1777; uses math, classes ; var x,y,z: integer; begin writeln('vedite 1 chislo'); readln(x); writeln('vedite 2 chislo'); readln(y); writeln('vedite 3 chislo'); readln(z); begin if ((x> y) and (x> z)) then writeln('samoe bolshoe chislo ',x) else if ((y> x) and (y> z)) then writeln('samoe bolshoe chislo ',y) else if ((z> x) and (z> y)) then writeln('samoe bolshoe chislo ',z); end; begin if ((x< y) and (x< z)) then writeln('samoe malenkoe chislo ',x) else if ((y< x) and (y< z)) then writeln('samoe malenkoe chislo ',y) else if ((z< x) and (z< y)) then writeln('samoe malenkoe chislo ',z); end; readln; end.

katkuatova

Информатика

4,6(97 оценок)

Var i, n: integer; s, t: string; begin readln(s); s : = ' ' + s; n : = length(s); for i : = length(s) downto 1 do if s[i] = ' ' then begin t : = t + copy(s, i + 1, n) + ' '; n : = 0; end else n : = n + 1; writeln(t); end.