uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if b=0 then writeln('Khong the tinh toan')
else writeln(a/b:4:2);
readln;
end.
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if b=0 then writeln('Khong the tinh toan')
else writeln(a/b:4:2);
readln;
end.
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.
Xác định bài toán, mô tả thuật toán và viết chương trình của bài toán sau:
- Thông báo số lớn hơn trong hai số thực a và b (a khác b).
Viết chương trình tính a/b. Nếu b<>0 (b khác 0) thì tính. Ngược lại báo lỗi "B không thỏa mãn điều kiện".
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
Viết chương trình kiểm tra a, b, c có phải là 3 cạnh của tam giác đều hay không ?
Mọi người giúp em với ạ
free pascal nhập a, b, c bất kì. kiểm tra xem nó có là 3 cạnh của tam giác hay không, nếu không thì in ra màn hình ‘a, b, c khong la ba canh cua tam giac’. ngược lại thì in diện tích và chu vi của tam giác ra màn hình.
AI GIÚP MIK BÀI NÀY VS
1) viết chương trình tính tổng 100 số tự nhiên đầu tiên
2. viết chương trình kiểm tra số n nhập từ bàn phím có chia hết cho hai số 2 và 3 không. nếu có thì in ra dòng chữ chia hết và không chia hết
Viết chương trình nhập từ bàn phím hai số nguyêm a và b khác nhau (a>b), sử dụng câu lệnh điều kiện để kiểm tra xem a chia hết cho b hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím bà số tự nhiên a,b,c: a) thông báo ra màn hình số a là số chẵn hay số lẻ
b)thông báo ra màn hình số b là số chẵn hay số lẻ
c) thông báo ra màn hình số c là số chẵn hay số lẻ
d) thông báo ra số lớn nhất trong ba số đó
Ai giúp mik với ạ