Cho tệp SN.INP gồm 2 số nguyên . viết chương trình tính hiệu của hai số đó và ghi kết quả vào tệp SN.OUT
2 câu trả lời
uses crt;
const fi='sn.inp';
var f1:text;
a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(dem);
close(f1);
readln;
end.
var f,g:text;
a,b:integer;
begin
Assign(f,'SN.INP'); reset(f);
Assign(g,'SN.OUT'); rewrite(g);
readln(f,a,b);
write(g,a,' - ',b,' = ',a-b);
close(f); close(g);
end.
