IV. program DemoIf;
uses wincrt;
var a, b: integer; c: real;
begin
write (‘Введите два числа: ’);
readln (a, b);
if b=0 then writeln (‘Нет решения’)
else
begin
c:=a/b;
writeln (‘Частное чисел ’,a,’ и ’,b,’=’, c)
end
end.
Упражнения.
1. Напишите условный оператор к фрагменту блок-схемы:
а)
б)
в)
2. Составьте программу по схеме алгоритма:
а)
б)
3. Составьте алгоритмы и программы для вычисления значения функции:
III.
а)
б)
в)
а)
б)
;
; m=7,5; y=3,2;
;
;
;
;
;
, при x=cos3a2+sin2a3;
, где х= 
;
, где m=2ax, T= 
;
;
.