uses crt;
var a,b:longint;
begin
clrscr;
write('nhap so thu nhat:');readln(a);
write('nhap so thu hai:');readln(b);
if (a mod 2=0) and (b mod 2=0) then
write('ca hai so deu chan')
else if (a mod 2<>0) and (b mod 2<>0) then
write('ca hai so deu le')
else write('ban vua nhap mot so chan va mot so le');
readln;
end.
chúc bạn học tốt
viet chuong trinh cho phep nhap diem kiem tra 1 ban nao do va in ra man hinh ket qua: neu diem nho hon 5 thi ban can co gang hon. neu ban lon hon hoac =5 va nho hon 6,5 thi ban dat diem trung binh. neu diem lon hon hoac = 6,5 va nho hon 8 thi ban dat diem kha. neu diem lon hon hoac = 8 thi ban dat diem gioi
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')
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 điều kiện sau có viết đúng ko?chỉ ra lỗi sai nếu có:
A.If a mod 2=0;then write('a la so chan');
B.If a mod 2<>0then 'a la so le');
C.If i/2 then i:i+1;
D.If i mod 2=0 then i=i+1;
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 !!!!!!!!!!!!!!!!
cho hai số nguyên AB hãy so sánh A>B thông báo A>B ngược lại thông báo A<B và A=B hãy viết thuật toán cho bài toán trên và viết chương trình
Tìm n để có tổng ≤ 100
Giúp mk đi mai thi hk rồi
gia su S la tich cua n so tu nhien dau tien . dung cau lenh lap while ... do viet chuong trinh xac dinh
n bang bao nhieu de S nho nhat lon hon 10000
giup mk di ma bon mk lm trong bai kiem tra do