Напишите пожалуйста 2 программы в pascal ABC 1.даны 4 числа, найти наименьшее из них 2.даны 3 стороны треугольника, является ли он прямоугольным?
Напишите пожалуйста 2 программы в pascal ABC
1.даны 4 числа, найти наименьшее из них
2.даны 3 стороны треугольника, является ли он прямоугольным?
Гость
Ответ(ы) на вопрос:
Гость1
program z1;
var a,b,c,d, min1, min2, min:real;
begin
writeln ('Введите 4 числа:');
readln (a,b,c,d);
if a
Не нашли ответ?
Похожие вопросы