以下是 pascal 语言中 if 语句需要解决的几个问题。

1.要确定 a 是否能被 b 整除，只要 a 的余数除以 b = 0，那么它就可以被 b 整除。 否则，输出 a、除法、b、等号、商（可用可整除函数 div 整除），然后使用 a-b* 商。

程序：var

a,b:integer;

beginreadln(a,b);

if a mod b=0 then

write(a,'/',b,'=',a div b)

elsewrite(a,'/',b,'=',a div b,'...',a-b*(a div b));

先看这三个数字，再看是不是偶数，在偶数计数器上加1，再数。

程序：var

a,b,c:integer;

a1,b1,c1:boolean;

beginreadln(a,b,c);

a1:=a mod 2=0;

b1:=b mod 2=0;

c1:=c mod 2=0;

if ((a1 xor b1) and c1) or ((a1 xor c1) and b1) or ((b1 xor c1) and a1)then

write('yes')

elsewrite('no');

圆内的范围是（2,2），圆上的范围是（2,1）或（1,2），圆的外侧是这两种情况除外。

vari,j:integer;

beginreadln(i,j);

if (i=2) and (j=2) then

write('in')

elseif ((i=1) and (j=2))or((i=2)and(j=1))then

write('on')

else write('out');

end.先做这么多，房东先等，谢谢。 希望。

一次问这么多问题很烦人！ 我们先来谈谈第一个，如果其中一个分号是浮点数，另一个是整数，则结果为浮点数。 如果两边都是整数，则它们将是整数，如果两边都是浮点数，则它们仍然是浮点数。

浮点数和整数有时是不同的。 这取决于实际要求。 问题中的定义是浮点型。

它应该写成这样：

if (47a) then ..不会有问题。

pascal 的 if 有 2 种基本格式。

1.如果是单行指令句：

if 条件，则为行语句;

2.如果是多行指令句。

如果条件那么

开始语句 1;

报表2;陈述 n;

end;

多个变量？ 陈述。

如果条件，则开始

在中间写你想写多少就写多少。

end;

基本上没有问题，但是这个程序最多只能做2-6个数字。 如果使用 for 语句，则可以输入大量数字

语句类型：顺序、分支、循环。

程序的执行完全决定了你如何设计它。

当分支嵌套时，在可能出现歧义的地方添加开始。end。

readln(a,b,c);

if a>b then begin t:=a; a:=b; b:=t end;

if a>c then begin t:=a; a:=c; c:=t end;

if b>c then begin t:=b; b:=c; c:=t end;

执行上述语句后，确保 a<=b<=c

看程序的第一行，在结尾后加一个逗号，所以程序如下：var

a,b,c:,tlongint;

beginread(a,b,c);

if (aif (aif (bwriteln(a,' ',b,' ',c);

end.是的，不，请问。