05.03.13 Условный оператор. Составьте программу, определяющую, является ли число а кратным числу b. Var a, b: integer; Begin Writeln(введите два числа); - презентация

1 Условный оператор

2 Составьте программу, определяющую, является ли число а кратным числу 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: Составьте программу, которая определяет является ли число четным.

3 Существование треугольника по трем сторонам Var a, b, c: integer; Begin Writeln(Длины сторон:); Read(a,b,c); If (a

4 Успехов!!!