0
var n, c, i, x: integer;
begin 
 readln(n);
 c := 0;
 for i := 1 to n do
    readln(x);
    if ((x >= 100) and (x <= 999) and (x div 100 = 3) and (x mod 5 = 0)) then c := c + 1;
 writeln(c);
end.

Он должен находить кол-во трёхзначных чисел, начинающихся на 3 и кратных 5, из последовательности длинной n.

1
  • Если у вас PascalABC.NET, то комбинация клавиш Ctrl+Shift+F (для тех, кто не хочет пользоваться иконкой или меню) отформатирует код и по отступам будет видна логика программы. Если не отформатирует - в программе синтаксические ошибки. Там же можно кликнуть иконку "Здоровье кода" и система оценит, насколько он убог.
    – RAlex
    Commented 9 мая 2021 в 6:46

2 ответа 2

1

Будь проклят тот день, когда кому-то в башку стукнуло придумать, что было бы хорошо управлять логикой программы при помощи отступов.

Паскаль не является Питоном. Так что для того, чтобы readln и if выполнялись вместе, их нужно поместить между begin и end

var n, c, i, x: integer;
begin 
 readln(n);
 c := 0;
 for i := 1 to n do
 begin
    readln(x);
    if ((x >= 100) and (x <= 999) and (x div 100 = 3) and (x mod 5 = 0)) then c := c + 1;
 end;
 writeln(c);
end.
6
  • Спасибо, забыл что больше одного действия нужно в begin end засовывать Commented 8 мая 2021 в 9:40
  • Будет лучше всегда засовывать тело цикла или обработку условия в блок. Так меньше шансов огрести глюки при редактировании программы, или при отладке "на скорую руку"
    – gbg
    Commented 8 мая 2021 в 9:42
  • Зря ругаетесь, отступы - отличная штука
    – Kromster
    Commented 8 мая 2021 в 10:01
  • @Kromster когда есть begin/end или {}. Без них рефакторить (и мержить) чужой код нереально - один неудачно нажатый "пробел" - и начинается цирк там, где его могло и не быть.
    – gbg
    Commented 8 мая 2021 в 10:06
  • @gbg зато это заставляет следить за форматированием своего кода. А отступы уже давно во всех нормальных IDE делаются автоматически.
    – Alekcvp
    Commented 9 мая 2021 в 11:53
-1

ReadSeqInteger(ReadInteger).Where(x -> (x in (100..999)) and (x div 100 = 3) and x.Divs(5)).Count.Print

введите сюда описание изображения

1
  • Все это решается в одну строку PascalABC.NET
    – RAlex
    Commented 9 мая 2021 в 7:00

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.