Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

1) var a,b,c,d:integer;
begin
write(Введите кол-во товара: );
readln (a);
write (Введите цену товара: );
readln (b);
c:=a*b;
writeln (Стоимость покупки составила ,c, рублей);
write (Сколько денег Вы даёте за покупку: );
readln (d);
if dif d=c then writeln (Сдачи нет);
if d>c then writeln (Сдача составила ,d-c, рублей);
end.

2) var a,b,c:integer;
begin
write (Введите длину стороны a: );
readln (a);
write (Введите длину стороны b: );
readln (b);
write (Введите длину стороны c: );
readln (c);
writeln;
if (aelse writeln (Такой треугольник не существует.);
end.

3) var i,n:integer;
b:array[1..1000] of real;
c:real;
begin
c:=0;
write (Введите кол-во дней: );
readln (n);
for i:=1 to n do
begin
if i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10);
end;
for i:=1 to n do
begin
c:=c+b[i];
end;
writeln (Всего спортсмен пробежит ,c:0:2, км за ,n, дней);
end.