Условный оператор
Составьте программу, определяющую, является ли число а кратным числу b. Var a, b: integer; Begin Writeln(введите два числа); Read(a,b); If a mod b = 0 // mod определяет остаток от деления Then Writeln(a кратно b) Else Writeln(a не кратно b); End. Задание 1: Составьте программу, которая определяет является ли число четным.
Существование треугольника по трем сторонам Var a, b, c: integer; Begin Writeln(Длины сторон:); Read(a,b,c); If (a<b+c) and (b<a+c) and (c<a+b) Then Writeln(Треугольник существует) Else Writeln(Треугольник не существует); End. Задание 2: Определите по трем сторонам, является ли треугольник прямоугольным (th Пифагора)
Успехов!!!