Вот, держи задачу))
var x: integer;
t,y: real;
begin
writeln('x = ');
readln(x);
t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;
writeln('t = ',t:0:5);
begin
if x <= 0 then
begin
y := 17.9 + exp(ln(x)*2);
end;
if (0 < x) and (x <= 1) then
begin
y := sqrt(x + 2);
end;
if x > 1 then
begin
y := ln(x - 1);
end;
writeln('y = ',y:0:5);
end;
end.
<u><span>Три красных и один голубой!</span></u>
<span>Так как красных было больше чем голубых то слебовательно красных больше Двух. Тоесть или 3 или 4. Так как по условию мама купила не только шары красного цвета но и синего то заведомо хоть один синего цвета -> <span>3 красных и 1 голубой.</span></span>
From random import randint
a=[]
x=0
y=0
for i in xrange(15):
value=randint(-50, 50)
if not value%2: y+=value
else: x+=value
a.append(value)
<span>print "Исходный массив: %s, Сумма чётных: %i, Сумма нечётных: %i, По модулю больше: %i".decode("utf-8")%(a, x, y, max(abs(x), abs(y)))</span>
1) координаты любой вершины или центра 2 шт
2) цвет заливки 1 шт
3) длина стороны
ответ 4 параметра
Var
a, b, c: real;
begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then
writeln('Данные числа являются пифагоровым тройками')
else
writeln('Данные числа не являются пифагоровым тройками');
end.