Помогите пожалуйста напиши в Паскаль
Спасибо
Ответы
Ответ:
program zadacha;
var
a,b,c,max,kub:real;
begin
Writeln('Введите отрицательные значения : a,b,c');
Readln(a,b,c);
max:=a;
if max<b then
begin
if max<c then
max:=c;
max:=b;
end;
kub:=max*max*max;
Writeln('Найбольшее число : ',max:5:2);
Writeln('Куб з найбольшего числа : ',kub:5:2);
readln;
end.
На фото результат программы (консоль) з любыми подобранными значениями.
Задание 2(7):
program zadacha_2;
var
a,b,c,min:Integer;
begin
Writeln('Введите три числа');
Readln(a,b,c);
min:=a;
if min>b then
begin
if min>c then
min:=c;
min:=b;
end;
Writeln('Найменшеее число : ',min);
readln;
end.
№1
=======
var
a, b, c, m :integer;
begin
read(a, b, c);
if a > b then
m := a
else m := b;
if c > m then
m := c;
writeln('max = ', m, ' куб max = ', m * m * m)
end.
№2
=======
var
a, b, c, m :integer;
begin
read(a, b, c);
if a < b then
m := a
else m := b;
if c < m then
m := c;
writeln('min = ', m)
end.