1 слайд 2 слайд 3 слайд. Program perimetr1; Var a,b,P:integer; Begin writeln (a,b); readln (a,b); P:=(a+b)*2; writeln (perimetr =,P); readln; end. Program. - презентация

1 1 слайд 2 слайд 3 слайд

2 Program perimetr1; Var a,b,P:integer; Begin writeln (a,b); readln (a,b); P:=(a+b)*2; writeln (perimetr =,P); readln; end. Program primer1; Var a,b:integer; Begin writeln (a, b); readln (a, b); If (a>b) then writeln(max=,a) else writeln (max=,b); readln; end.

3 Program primer2; Var a,b:integer; Begin writeln (a,b); readln (a,b); If (a>b) then writeln(a:4,b:4) else writeln (1:4,1:4); readln; end. Program primer3; Var a,b:integer; Begin writeln (a,b); readln (a,b); If (a

4 Program primer 3; Var a,b:integer; Begin; writeln (a,b); readln (a,с); If (a

5 Задача 1. Даны 3 числа a,b,c. Вывести на экран их сумму, если а > b>c, и оставить без изменения в противном случае. Program primer1; Var a,b,c:integer; Begin writeln (a,b,c); readln (a,b,c); If (a>b) or (b>c) then writeln(a+b+c) else writeln (a,b,с); readln; end.

6 Даны 3 числа a,b,c. Вывести на экран противоположные числа, если а b>c и оставить без изменения в противном случае.

7 Program primer2; Var a,b,c:integer; Begin writeln (a,b,c); readln (a,b,c); If (ab) or (b>c) then writeln (0:4,0:4,0:4) else writeln (a:4,b:4,с:4); readln; end.

8 Дома: Задача 2. Даны 3 числа a,b,c. Вывести на экран произведение, если а = b =c, вывести двойки, если a>b>c и оставить без изменения в противном случае. Задача 3. Даны 2 числа b,c. Вывести на экран противоположные числа, если b