主页 / 问题 / 1279534
Accepted
Максим Филимонов
Asked:2022-05-08 17:31:26 +0000 UTC2022-05-08 17:31:26 +0000 UTC

帕斯卡代码不起作用

  • 772
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.

它必须从长度为 n 的序列中找到以 3 开头且可被 5 整除的三位数字的个数。

pascal

2 个回答

  1. Best Answer

    被诅咒的一天，有人突然想到用缩进控制程序逻辑会很好。

    帕斯卡不是 Python。所以为了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.
    • 1

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

    在此处输入图像描述

    • -1

相关问题