Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
nhà anh giàu nhà anh 5 tầng có 3 xe máy và 1 ô tô có bé nào chịu k nè !
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
Bài 1:
Ta nhớ thực hiện lệnh
<biến đếm>:=<giá trị>;
Bài 2:
d:=d+2;
Program Marble_Top;
uses crt;
var i,n,t:integer;
begin
write('nhap n '); readln(n);
for i:= 1 to n do
if i*i =n then t:= t+1;
if t=1 then write (n, ' la so chinh phuong') else write (n, ' khong la so chinh phuong');
readln
end.
var a:integer;
begin
readln(a);
if sqr(trunc(sqrt(a)))=a then
writeln('la so chinh phuong') else writeln('khong la so chinh phuong');
end.
uses crt;
var a,b,c,d:real;
begin
clrscr;
write('nhap chieu cao cua ban thu 1:'); readln(a);
write('nhap chieu cao cua ban thu 2:'); readln(b);
write('nhap can nang cua ban thu 1:'); readln(c);
write('nhap can nang cua ban thu 2:'); readln(d);
if a>b then writeln('chieu cao cua ban thu 1 cao hon cua ban thu 2');
if a<b then writeln('chieu cao cua ban thu 2 cao hon cua ban thu 1');
if a=b then writeln('chieu cao cua hai ban bang nhau');
if c>d then writeln('can nang cua ban thu 1 nang hon ban thu 2');
if c<d then writeln('can nang cua ban thu 2 nang hon ban thu 1');
if c=d then writeln('can nang cua hai ban ngang nhau');
readln;
end.
quá đơn giản
uses crt;
var a,b,c,d:real;
begin
clrscr;
write('nhap chieu cao cua ban thu 1:'); readln(a);
write('nhap chieu cao cua ban thu 2:'); readln(b);
write('nhap can nang cua ban thu 1:'); readln(c);
write('nhap can nang cua ban thu 2:'); readln(d);
if a>b then writeln('chieu cao cua ban thu 1 cao hon cua ban thu 2');
if a<b then writeln('chieu cao cua ban thu 2 cao hon cua ban thu 1');
if a=b then writeln('chieu cao cua hai ban bang nhau');
if c>d then writeln('can nang cua ban thu 1 nang hon ban thu 2');
if c<d then writeln('can nang cua ban thu 2 nang hon ban thu 1');
if c=d then writeln('can nang cua hai ban ngang nhau');
readln;
end.
Bài toán mẫu nhé, bạn tham khảo, không hiểu chỗ nào cứ hỏi nhé :
Để khởi động bài toán cùng với Scratch thì nhấn lá cờ màu xanh để bắt đầu :
Những bước tiếp theo thì chúng ta hãy làm những thao tác mà chương trình ra lệnh.
Ừ, kì I học Scratch còn sang kì II học Pascal.
Nguyễn Hải Dương
biết , dễ mà !