Что относится к устройствам ввода информации? что относится к устройствам вывода информации? микрофон видеопроектор плоттер джойстик цифровой микроскоп накопитель (дисковод) web камера микрофон цифровой фотоаппарат
Program formula; var x: integer; p,y: real; begin write('vvedute x< > 0 -> '); readln(x); if x=0 then writeln('x=0 nedopustimo') else begin p: = abs(cos(x)); if p=0 then writeln('ln(0) v 4islitele') else begin y: =ln(p)/ln(1+sqr(x*x)); writeln('y=',y: 5: 2) end end end.
Isaeva_Marin1010
24.10.2020
Program treug; var a,b,c: integer; label l1,l2; begin l1: writeln ('укажите стороны треугольника: '); read (a,b,c); if (a< =0) or (b< =0) or (c< =0) then begin writeln ('проверьте правильность введенных данных'); goto l1; end; if (a=b) and (a=c) and (b=c) then begin writeln ('треугольник с указанными параметрами - равносторонний'); goto l2; end; if (a=b) or (a=c) or (b=c) then begin writeln ('треугольник с указанными параметрами - равнобедренный'); goto l2; end; writeln ('треугольник с указанными параметрами - разносторонний'); l2: end.