Những câu hỏi liên quan
Ai giải giúp em bài này với ạ😭
Viết chương trình nếu a,b >0 thì tính và in ra màn hình tích của a,b ngược lại hiển thị yêu cầu nhập lại
Xem chi tiết
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('Nhap a,b');
Realn(a,b);
If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)
else writeln('Yeu cau nhap lai');
Readln;
End.
Đúng 2
Bình luận (1)
Viết chương trình nếu a,b >0 thì tính và in ra màn hình tích của a,b ngược lại hiển thị yêu cầu nhập lại
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng A gồm N số thực (N<=50) là điểm thi toán của các bạn trong lớp. Hiển thị mảng vừa nhập ra màn hình (mỗi số hiển thị trên một dòng)?Ai giúp em với ạ !!?
Program HOC24;
var i.n: integer;
a: array[1..250] of integer;
begin
for i:=1 to n do
begin
write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln
end.
Đúng 1
Bình luận (0)
uses crt;
var i,n:integer; A: Array[1..50] of integer;begin clrscr; readln(n);readln(k); for i:=1 to n do begin write('A[',i,'] = '); readln(A[i]); end; for i:=1 to A[i] do if (A[i] > k) then write(A[i]); readlnend.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..50]of real;
i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
writeln(a[i]:4:2);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào mật khẩu đăng nhập .nếu sai thì xuất ra màn hình thông báo '' MAT KHAU KHONG DUNG'', ngược lại xuất ra màn hình thông báo '' DANG NHAP THANH CONG''
giúp em sắp kiểm tra rồi
Đề thiếu điều kiện rồi bạn
Đúng 0
Bình luận (0)
em hay viết cú pháp sơ đồ khối và viết chương trình để thực hiện các bài toán bên dưới:a. Nếu ab thì hiển thị ra màn hình kết quả của a b. Nếu ab thì hiển thị ra màn hình hai số bằng nhau, ngược lại thì hiển thị ra màn hình hai số không bằng nhau .c. Nếu a chia cho 2 dư 1 thì hiển thị ra màn hình a là số lẻ, ngược lại hiển thị ra màn hình a là số chẵn.
Đọc tiếp
em hay viết cú pháp sơ đồ khối và viết chương trình để thực hiện các bài toán bên dưới:
a. Nếu a>b thì hiển thị ra màn hình kết quả của a
b. Nếu a=b thì hiển thị ra màn hình "hai số bằng nhau", ngược lại thì hiển thị ra màn hình "hai số không bằng nhau ".
c. Nếu a chia cho 2 dư 1 thì hiển thị ra màn hình "a là số lẻ", ngược lại hiển thị ra màn hình "a là số chẵn".
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
Đúng 0
Bình luận (0)
Cho số thực R là bán kính của hình tròn nhập vào từ bàn phím Pi là một bằng số có giá trị 3,14.em hãy viết chương trình tính chu vi diện tích của hình tròn rồi hiển thị kết quả ra màn hình?
Program HOC24;
var r,s: real;
begin
write('Nhap ban kinh: '); readln(r);
writeln('Dien tich la: ',r*r*3.14:6:2);
write('Chu vi la: ',r*2*3.14:6:2);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một số nguyên dương n hữu hạn bất kỳ hiển thị ra màn hình các số lẻ trong đoạn từ 1 đến n. Giải giúp em với ạ!
program vdd;
uses crt;
var i,n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
for i:=1 to n do if i mod 2=1 then write(i,'');
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ bàn phím hai số nguyên x y nếu x>y thì đưa ra màn hình x-y ngược lại đưa ra màn hình x+y
Xem chi tiết
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x>y then writeln(x-y)
else writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ bàn phím hai số nguyên x y nếu x>y thì đưa ra màn hình x-y ngược lại đưa ra màn hình x+y
Xem chi tiết
uses crt;
var x,y:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
if x>y then writeln(x-y)
else writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)