Вообщем так. 1. sin это арифметическое действие. Синус можно найти из 90 градусов например. А тут X>10. Из чего синус искать, из большего или может из меньшего? Правильной будет запись if x>10 then ... какое-то действие... sin(x) else ... sin (x); вообщем нельзя ставить оператор сравнения в арифметическое действие т.к. им задаются условия.
2. Попытка использовать арифметические операции с "false". 3. Выражение теряет смысл. And это логическая операция. Лог выражение должно быть вида A and B. Соответственно исправить можно так '(x=0) and (round(sqrt(x)) mod 2=0)' 4. Не пишут 2 or подряд т. к. теряется логика операции.
Program qq; var a, count2, count3: integer; begin writeln('Введите число'); readln(a); count2:=0; count3:=0; while a>0 do begin if a mod 10 = 2 then count2:=count2+1; if a mod 10 = 3 then count3:=count3+1; a:=a div 10; end; if count2>count3 then a:=count3 else if count3>count2 then a:=count2 else a:=count2; if a<>0 then while a>0 do begin writeln('Выведено число 23'); a:=a-1; end else writeln('Нельзя получить число 23 из цифр введённого числа'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
