Question

ИНФОРМАТИКА!СДЕЛАЙТЕ ПРОШУУ

Answer 1

//Язык Pascal

--------------------------------------------------

1 задание:

Program Test;

Var a, b: real;

Begin

Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);

Writeln();
Writeln('Сумма = ', a + b);

End.

--------------------------------------------------

2 задание:

Program Test;

Var x: integer;

Begin

Write('Введите x: ');
Readln(x);

Writeln();
Writeln('Результат возведения в 4 степень = ', x * x * x * x);

End.

--------------------------------------------------

3 задание:

Program Test;

Var a: integer;

Begin

Write('Введите a: ');
Readln(a);
Writeln();

if (a > 5) then
a := a * 2;

Writeln('a = ', a);

End.

--------------------------------------------------

4 задание:

Program Test;

Var min, max, tmp: integer;

Begin

Write('Введите 1 число: ');
Readln(max);
Write('Введите 2 число: ');
Readln(min);
Writeln();

if (min > max) then
begin
tmp := max;
max := min;
min := tmp;
end;

Writeln('Большее = ', max);
Writeln('Меньшее = ', min);

End.