Program programma1; uses crt; var a: real; begin clrscr; write('градусная мера угла a = '); readln(a); if a> =0 then begin if a< > 180 then writeln ('угол не является развернутым') else writeln ('угол является развернутым'); end else writeln('угол не может быть отрицательным'); end. program programma2; uses crt; var x: real; begin clrscr; write('x = '); readln(x); if x> 5 then x: =x*x; if x< 5 then x: =x*x*x; writeln('ответ: ',x); end.
kosharikclub
04.04.2023
Для сред программирования dos (например, turbo pascal) удалите фигурные скобки, для сред windows (например, pascalabc.net) строки в фигурных скобках удалите полностью. {uses crt; } const n=80; digits=['0','1','2','3','4','5','6','7','8','9']; var s: string[80]; i: integer; begin {clrscr; } writeln('введите текст (учитываются только 80 первых символов)'); readln(s); for i: =1 to n do if s[i] in digits then write(s[i]); writeln; for i: =1 to n do if not(s[i] in digits) then write(s[i]); writeln; {readkey} end. тестовое решение: введите текст (учитываются только 80 первых символов) обь с притоком иртыш 5410км, амур с аргунью 4440км, лена 4400км, енисей 4102км 5410444044004102 обь с притоком иртыш км, амур с аргунью км, лена км, енисей км
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какое логическое выражение равносильно выражению а & ¬(¬в & ¬с)? 1)а & в & с 2)а \/ в. \/ ¬ с 3) а& (в\/с) 4)(а\/ ¬в)& ¬с