Nhập hai số x,y in ra xy (pascal) dùng lệnh for...do
H9
Những câu hỏi liên quan
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình Pascal nhập vào 2 số a, b và in ra màn hình ƯCLN của a, b. Dùng câu lệnh while… do…
Var a,b,ta,tb,r,ucln:integer;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
ta:=a;
tb:=b;
While tb <> 0 do
Begin
r:=ta mod tb;
ta:=tb;
tb:=r;
End;
ucln:=ta;
Write('UCLN(',a,' ',b,') = ',ucln);
Readln
End.
Đúng 2
Bình luận (0)
NC
6 tháng 4 2023 lúc 21:44
Viết chương trình Pascal nhập vào 1 dãy số nguyên và in ra màn hình khi tổng của chúng < 20. Dùng câu lệnh while…do…
program tong_so;
var
tong, so: integer;
begin
tong := 0;
while tong < 20 do
begin
write('Nhập số nguyên: ');
readln(so);
tong := tong + so;
end;
writeln('Tổng các số đã nhập là: ', tong);
end.
Đúng 1
Bình luận (0)
NC
6 tháng 4 2023 lúc 21:36
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then...
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
Đúng 1
Bình luận (0)
NC
6 tháng 4 2023 lúc 21:38
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
Đúng 1
Bình luận (2)
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Giải chi tiết giúp mình nhé
Program solonhon;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
Đúng 2
Bình luận (0)
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a>b then write(a) else write(b);
readln
end.
Đúng 2
Bình luận (2)
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if a>b then write(a)
else write(b);
readln;
end.
Đúng 1
Bình luận (0)
viết phương trình pascal nhập vào số n có 6 chữ số kiểm tra và xuất ra màn hình tổng các chữ số của số đó, sử dụng lệnh lặp for.....do
uses crt;
var s,x,i:byte;
n: string;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to length(n) do begin
val(n[i],x); inc(s,x); end;
write('Tong cac chu so cua so do la: ',s);
readln
end.
Đúng 0
Bình luận (0)
nhập vào số nguyên n. in ra ước nhỏ nhất khác 1 của n (chỉ dùng lệnh for , ko dùng lệnh break )
uses crt;
var n,i:integer;
begin
readln(n);
for i:=2 to n do
if (n mod i=0) then
begin
write(i);
readln;
exit;
end;
end.
Đúng 0
Bình luận (0)
giúp mk!!Câu 1. Lệnh read(tên biến); /readln(tên biến); dùng để:A. in ra màn hình B. gán giá trị cho biếnC. nhập dữ liệu vào từ bàn phím D. gán giá trị cho hằngCâu 2. Trong Pascal, lệnh write/writeln dùng để:A. nhập dữ liệu vào từ bàn phím B. gán giá trị cho hằngC. gán giá trị cho biến D. in, thông báo ra màn hình
Đọc tiếp
giúp mk!!
Câu 1. Lệnh read(tên biến); /readln(tên biến); dùng để:
A. in ra màn hình B. gán giá trị cho biến
C. nhập dữ liệu vào từ bàn phím D. gán giá trị cho hằng
Câu 2. Trong Pascal, lệnh write/writeln dùng để:
A. nhập dữ liệu vào từ bàn phím B. gán giá trị cho hằng
C. gán giá trị cho biến D. in, thông báo ra màn hình