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 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;
begin
write ('Введите длину стороны 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;
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.

Я уже устаю писать фразу: " уточняйте на каком языке программирования нужно написать", если же Вы этого не делаете, то Вам будет хуже, потому что напишут не на том, на котором Вам нужно, а на том котором удобно человеку. Вот к примеру мне удобно написать на С++, по этому напишу на нём. Алгоритм везде будет тот же.

int a,b,c;

double sr;

cin << a;

cin << b;

cin << c;

sr = (a+b+c)/3

if(a>sr){

cout << "Первое число больше за среднее арифметическое";

}

if(b>sr){

cout << "Второе число больше за среднее арифметическое";

}

if(c>sr){

cout << "Третье число больше за среднее арифметическое";

}

В объяснении

Объяснение:

1 Вариант

1. 1)ppt

2. 1) my.doc, bell.txt, song.docx;

3. 3)мышь

4. 1) красного, синего, зеленого

5.Объем сообщения определяется по формуле:

V=l*r,

где l-длина сообщения, r-разрешение.

l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).

r=1 байт=8 бит.

Объем сообщения равен:

V=50*8=400 бит.

6. не понятно, что делать, задания не видно как-то

7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114

8. Нет рисунка  собственно

9.  64 бита < 16 байт

10 Кбайт < 10600 байт

10 байт = 80 бит

10. Нет схемы