enter image description here

Write a condition that is true when integer A is not a multiple of three and ends in zero.

  • Do you understand exactly what you are doing? There are no variables, the condition is delusional, there is no operator after the condition. while out of place at all ... - pavel
  • I have a problem with this problem, and I write the rest well, could you write me a solution? - Alina
  • @ Alina what nonsense. If you остальное пишите normally, this task will not cause you problems. And math (if you don't know it) can be searched on the Internet - Vasily Barbashev

1 answer 1

One of the main mistakes (besides syntax) is that there are no condition checks:

And not a multiple of three and ends in zero.

 program TrueFalse; var x: integer; begin Writeln('Для выхода введите 666...'); x := ReadlnInteger('Введите число: '); While (x <> 666) do begin If ((x mod 3 <> 0) and (x mod 10 = 0)) Then Writeln('TRUE - условие выполнено!') Else Writeln('FALSE - число не удовлетворяет условию!'); x := ReadlnInteger('Введите число: '); end; Writeln('Выход'); Read(); end.
  • and where was the syntax error? - Grundy
  • @Grundy if ... then false for example. Variable A declared but not used, but this is not entirely a mistake. - slippyk
  • and so it is impossible? :) it seemed to me that there was an else there and just skipped the code for the branches. - Grundy
  • @Grundy compiler swears Ожидалось имя процедуры или функции - slippyk