Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.
def bracket(a):
test_list = []
for i in a:
if i == "(" or i == ")":
test_list.append(i)
opening_bracket= test_list.count("(")
closing_bracket = test_list.count(')')
if opening_bracket != closing_bracket:
print("Неправильные количество скобок!\t'(' = {} ')' = {}".format(
opening_bracket,closing_bracket
))
else:print('Количество открывающих скобок, равно количеству закрывающих скобок')
text = '( текст для тестирования ( программы и ) для обработки ( данных) '
bracket(text)
text_1 = "(((((((((((((()))()()()()())())()(())()))()()()()())))("
bracket(text_1)
text_2 = "(((((((((((((((((())))))))))))))))))"
bracket(text_2)
Вивод:
Неправильные количество скобок! '(' = 3 ')' = 2
Неправильные количество скобок! '(' = 30 ')' = 25
Количество открывающих скобок, равно количеству закрывающих скобок
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var a: real; i: integer;begin writeln('Введите курс доллара >> '); readln(a); for i:=1 to 10 do begin writeln(i+'$ = ' + i*a + ' рублей'); end;end.