1.Составьте диагональную программу,которая спрашивает сколько товара и по какой цене берёт покупатель,сообщает ему стоимость покупки.Затем спрашивает сколько денег он даёт и сообщает величину сдачи.
2.Даны действительные положительные числа a,b,c.Определить,существует ли треугольник с такими сторонами.
3.начав тренировки,спортсмен в первый день пробежал 10км.Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.Какой суммарный путь пробежит спортсмен за n дней?
ВСЁ ЭТО В ПАСКАЛЬ!

Кстати, а Вы как поняли термин "диагональная программа"?

"диалоговая"?

Такой термин как "диагональная программа" я так и не смог расшифровать, так как уже все решил, а пользователь задавший вопрос так и не ответил, что подразумевается под "диагональной программой" отправил решение, в надежде услышать от пользователя, то ему нужно или нет)Вот и остаётся только ждать ответа от AlexOfitserov614

1) var a,b,c,d:integer;beginwrite('Введите кол-во товара: ');readln (a);write ('Введите цену товара: ');readln (b);c:=a*b;writeln ('Стоимость покупки составила ',c,' рублей');write ('Сколько денег Вы даёте за покупку: ');readln (d);if d<c then writeln ('Вам ещё нужно доплатить ',c-d,' рублей');if d=c then writeln ('Сдачи нет');if d>c then writeln ('Сдача составила ',d-c,' рублей');end.2) var a,b,c:integer;beginwrite ('Введите длину стороны a: ');readln (a);write ('Введите длину стороны b: ');readln (b);write ('Введите длину стороны c: ');readln (c);writeln;if (a<b+c) and (b<a+c) and (c<a+b) then writeln ('Такой треугольник существует.')else writeln ('Такой треугольник не существует.');end.3) var i,n:integer;b:array[1..1000] of real;c:real;beginc:=0;write ('Введите кол-во дней: ');readln (n);for i:=1 to n dobeginif i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10);end;for i:=1 to n dobeginc:=c+b[i];end;writeln ('Всего спортсмен пробежит ',c:0:2,' км за ',n,' дней');end.