Program 1 Uses crt Var a integer Begin








Program 1; Uses crt; Var a: integer; Begin Clrscr; Readln (a); If a>0 then a: =a-10 else a: =a+10; Writeln (a); Readkey; End.


Program 2; Uses crt; a - первое число b - второе число Var a, b, d: integer; d – произведение Begin Clrscr; Readln (a, b); d: =a*b; If d<0 then d: =d*(-2) else d: =d*3; Writeln (d); Readkey; End.


Program 3; a - первое число Uses crt; b - второе число – сумма, частное, Var a, b: integer; d: real; dпроизведение Begin Clrscr; Readln (a, b); d: =a+b; If d mod 2=0 then d: =a*b else d: =a/b; Writeln (d); Readkey; End.


Program 4; a - первое число Uses crt; b - второе число d – разность чисел Var a, b, d: integer; Begin Clrscr; Readln (a, b); If a>b then d: =a-b else d: =b-a; Writeln (d); Readkey; End.


Program 5; Uses crt; Var a: real; Begin Clrscr; Readln (a); If a<=10 then a: =a*5 else a: =a/2; Writeln (a); Readkey; End.


Program 6; a - первое число b - второе число Uses crt; S – сумма чисел Var a, b: integer; S: real; Begin Clrscr; Readln (a, b); S: =a+b; If S>100 then S: =S/2 else S: =S*2; Writeln (S); Readkey; End.


Program 7; a - двузначное число Uses crt; b -первая цифра числа d - вторая цифра числа Var a, b, d, s: integer; S - сумма цифр числа Begin Clrscr; Readln (a); b: = a div 10; d: = a mod 10; S: = b+d; If s mod 2=0 then a: =a+2 else a: =a-2; Writeln (d); Readkey; End.


Program 8; a, b, c – длины сторон Uses crt; треугольника Var a, b, с: integer; Begin Clrscr; Readln (a, b, c); If a>=b+c then Writeln (‘Нет’) Else if b>=a+с then Writeln (‘Нет’) Else if c>=a+b then Writeln (‘Нет’) Else Writeln (‘Да’); Readkey; End.







- Slides: 29