Question

Помагите пожалуйста! Срочно надо решить задание по информатике!

Выполните задания


Задание № 1

5 + 5 div 5

5 div 5 div 5

123 div 10

123 mod 10

123 div 10*10

123 * 10 div 10


Задание № 2

Пример:

Вычислите периметр треугольника. Длины сторон задаются с клавиатуры.


Var a, b ,c, P: integer;

Begin

Writeln (‘введите длины сторон треугольника’);

Readln( a, b, c);

P:= a + b+ c;

Writeln (‘Периметр треугольника равен’, P);

End.


Задача № 1

Вычислите периметр треугольника. Длины сторон задаются пользователем с клавиатуры.

Задача № 2

Найдите сумму, разность и произведение двух чисел, вводимых с клавиатуры.