По договоренности без № 8.
1. program fdg;
var
a: integer;
begin
write('Введите число: ');
readln(a);
if a > 0
then a := a + 1;
writeln(a);
end.
2. program Polog;
var
mas: array [1..3] of integer;
i, k: integer;
begin
k := 0;
write('Введите 3 числа: ');
for i := 1 to 3 do
begin
readln(mas[i]);
if mas[i] > 0
then k := k + 1;
end;
writeln('Среди введенных чисел ', k, ' положительных');
3. program trh;
var
i, j: integer;
begin
write('Введите 2 числа: ');
readln(i, j);
if i > j
then
writeln('наименьшее 2-е число')
else
writeln('наименьшее 1-е число');
end.
4. program trh;
var
a, b: integer;
begin
write('Введите числа: ');
readln(a, b);
if a = b
then begin
a := 0;
b := 0;
writeln
end
else a := a + b;
b := a;
writeln('a=', a, ' b=', b);
end.
5. program Minimum;
var
x1, x2, x3, min: integer;
begin
write('введите 3 числа: ');
readln(x1, x2, x3);
if (x1 < x2) and (x1 < x3)
then min := x1
else
if (x2 < x1) and (x2 < x3)
then min := x2
else min := x3;
writeln('минимальное число: ', min);
end.
6. program Minimum;
var
x1, x2, x3, sr: integer;
begin
write('введите 3 числа: ');
readln(x1, x2, x3);
if (x1 < x2) and (x2 < x3)
then sr := x2
else
if (x2 < x1) and (x1 < x3)
then sr := x1
else sr := x3;
writeln('среднее из чисел: ', sr);
end.
7. program fgh;
var
x1, x2, x3, s: integer;
begin
write('введите 3 числа: ');
readln(x1, x2, x3);
if (x1 > x2) and (x2 > x3)
then s := x1 + x2
else
if (x2 > x1) and (x3 > x2)
then s := x2 + x3
else s := x1 + x3;
writeln('Сумма 2-х наибольших из чисел: ', s);
end.
9. program fgh;
var
s: real;
begin
write('Введите стоимость покупки: ');
readln(s);
if s > 1000
then s := s - s * 0.03
else
if s > 3000
then s := s - 0.05;
writeln('Стоимость покупки: ', s);
end.
10. program fgh;
var
x, f: real;
begin
write('Введите x: ');
readln(x);
if x > 5
then f := sqr(x) - 1
else
if x < -2
then f := 2 * x;
writeln('f=', f);
end.