Первая задача
program firstProgram
var ug1, ug2: real;
begin
write("Введите первый угол: ");
read(ug1);
write("Введите второй угол: ");
read(ug2);
 if ((ug1 + ug2) < 180)
begin
if ((ug1 > 90) or (ug2 > 90)) write("Треугольник тупоугольный");
else if ((ug1 = 90) or (ug2 = 90)) write("Треугольник прямоугольный");
else write("Треугольник остроугольный");
end
end

0 0

4 года назад

Написать программу функции написать 1, если n делится на 3 написать 0, если n не делится на 3

milkaboom

var n:integer;

begin

readln (n);

if n mod 3=0

then writeln (1)

else writeln (0);

end.

0 0

3 года назад

Нужны 2 программы в паскале ABC. Задания на фото.

maza007 [14]

===== PascalABC.NET =====

= 1 =

begin

var a, b: integer;

var x, z: real;

Write('Введите a, b, x, z: ');

Read(a, b, x, z);

var k := 1.0;

for var d := 1 to b do

begin

var c := 0.0;

for var s := 1 to a do

c += (d * d + x) / (s ** (3 / 2) + z);

k *= c

end;

Println('К =', k)

end.

= 2 =

begin

var b, n: integer;

var x, z: real;

Write('Введите b, n, x, z: ');

Read(b, n, x, z);

var g := 0.0;

for var c := 1 to b do

begin

var p := 1.0;

for var a := 1 to n do

p *= (a * a * a + z) / (c * c + x);

g += p

end;

Println('G =', g)

end.

0 0

3 года назад

заменить в слове одну букву, что бы получить другое слово БЕГ --- ШАГ

я помогу если ты поможеш с бант коса )))))))))))))))очень надо.............. если что бег бог бор бар бак мак маг шаг

0 0

3 года назад

Как на паскале можно задать случайные числа от -14 до 32​

Как на паскале можно задать случайные числа от -14 до 32