Вопрос по информатике:
Напишите пожалуйста 2 программы в pascal ABC
1.даны 4 числа, найти наименьшее из них
2.даны 3 стороны треугольника, является ли он прямоугольным?
Пожаловаться
- 23.06.2018 10:23
- Информатика
- remove_red_eye 8197
- thumb_up 9
Ответы и объяснения 1
1
program z1;
var a,b,c,d, min1, min2, min:real;
begin
writeln ('Введите 4 числа:');
readln (a,b,c,d);
if amin1:=a
else
min1:=b;
if c
else
min2:=d;
if min1
else
min:=min2;
writeln ('Наименьшее число: ',min);
end.
2
program z1;
var a,b,c,d,g,k:real;
begin
writeln ('введите стороны треугольника:');
readln(a,b,c);
if abegin
k:=a;
d:=b;
end
else
begin
k:=b;
d:=a;
if d
else
g:=d;
if g*g=d*d+k*k then
writeln ('треугольник прямоугольный')
else
writeln('треугольник не прямоугольный');
end.
program z1;
var a,b,c,d, min1, min2, min:real;
begin
writeln ('Введите 4 числа:');
readln (a,b,c,d);
if amin1:=a
else
min1:=b;
if c
else
min2:=d;
if min1
else
min:=min2;
writeln ('Наименьшее число: ',min);
end.
2
program z1;
var a,b,c,d,g,k:real;
begin
writeln ('введите стороны треугольника:');
readln(a,b,c);
if abegin
k:=a;
d:=b;
end
else
begin
k:=b;
d:=a;
if d
else
g:=d;
if g*g=d*d+k*k then
writeln ('треугольник прямоугольный')
else
writeln('треугольник не прямоугольный');
end.
Пожаловаться
- 24.06.2018 14:41
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы