Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
Các đoạn chương trình khác nhau chỗ nào?
1/ If Long > Trang then writeln('Long cao hon');
If Long < Trang then writeln('Trang cao hon') else writeln('Ca hai bang nhau');'
và
2/ If Long > Trang then writeln('Long cao hon') else If Long < Trang then writeln('Trang cao hon') else writeln('Ca hai bang nhau);
Giúp mình vớiiiii
Các bạn có thể tìm lỗi trong program này giúp tớ được không?
program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
else
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
readln;
end.
Nếu các cậu tìm được tớ sai lỗi nào thì comment cho tớ để tớ biết!
Bạn nào viết được giùm mình cái chương trình pascal này :''CẢM ƠN NHIỀU''
Nếu như mua>100 nghìn thì giảm giá 30%
Nếu như mua<100 nghìn thì giảm giá 15%
Có gợi ý:
Program:________________
uses __________
var T:real;
write(''nhap so tien mua'');readln(T);
if(T>100000)then writeln('so tien phai tra la'',(70*T)/100)
else_______________
readln
end.
Cần gấp !!!!!!!!!!!!!!!!
Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai
program So_sanh
usercrt;
var A,B=interger;
Begin clrscr;
writeln('Nhap so A:'); readln(A);
writeln('Nhap so B:'); readln(B);
if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)
readln
End.
Các câu lệnh Pascal sau đây được viết đúng hay sai?
a) if x:=7 then a=b;
b) if x>5; then a:=b;
c) if x>5 then; a:=b;
d) if x>5 then a:=b; m:=n;
e) if x>5 then a:=b; else m:=n;
f) if n>0 then begin a:=0; m:=-1 end else c:=a;
Câu lệnh sau có bao nhiêu lỗi sai? Hãy chỉ ra các lỗi sai đó:
if a mod 2 :=0 then writeln(a,' la so chan);
else writln(a, ' la so le')
Cho a:= 7; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a>b then writeln(‘a>b’) else writeln(‘a<b’);
A. a>b B. a=b C. a<b D. a≠b
Cho biết kết quả của lệnh sau: if (a > b) then writeln(a); else writeln(b);
A. Viết ra màn hình số nhỏ nhất trong 2 số a và b
B. Viết ra màn hình số lớn nhất trong 2 số a và b
C. Câu lệnh sai nên không thực hiện được
D. Đảo giá trị của hai biến a và b
giúp em viết chương trình ngày với ạ: nhập M, n , in so sánh M>n? M<n? M= n?
