Question

Cho đoạn chương trình, tìm lỗi sai sửa lại cho đúng: 1) program : bai1; var x,y:= interger; x=7; n=2.68; begin writeln(nhap so x); realn(x); writeln(nhap so y); realn(y); if x mod 2 = 0 then y=y x ; else y:=y n; write (‘ket qua phep tinh la’ , y); r...

Answer 1

program bai1;

uses crt;

var x,y,n:integer;

begin

clrscr;

x:=7;

n:=2.68;

write('nhap so x:'); readln(x);

write('nhap so y:');readln(y);

if x mod 2 =0 then y:=y*x

else y:=y*n;

write('ket qua phep tinh la:', y);

readln

end.

Answer 2

program bai1;

uses crt;

var x,y,n:integer;

begin

clrscr;

x:=7;

n:=2.68;

write('nhap so x:'); readln(x);

write('nhap so y:');readln(y);

if x mod 2 =0 then y:=y*x

else y:=y*n;

write('ket qua phep tinh la:', y);

readln

end.