Program fofgogjoj;
var
a,b,c:integer;
begin
Writeln('Введите три значения температуры');
Readln(a,b,c);
if a>0 then
Writeln('1ое значение - температура таяния');
if b>0 then
Writeln('2ое значение - температура таяния');
if c>0 then
Writeln('3е значение - температура таяния');
if (a<=0) and (b<=0) and (c<=0) then
Writeln('Температуры таяния не обнаружено');
<span>end.</span>

0 0

3 года назад

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

Зулфалиева Эльмир...

Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>

0 0

4 года назад

Решите пожалуйста задачу, 9 класс Pascal ABC

oleg009

______________________

0 0

4 года назад

Система команд исполнителя Вычислитель состоит из двух команд,команд которым присвоены номера:1-вычти 1 2-умножить на 3Первая из

Михаил-51 [183]

А) 1 2 2 1 1
Мы получаем: 3 - 2 - 6 - 18 - 17 - 16
б) 2 2 2 1 1
Мы получаем 1 - 3 - 9 - 27 - 26 - 25

0 0

4 года назад