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.
Answers & Comments
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.