K
Khách

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.

Mình thấy hình như đâu sai câu nào đâu

2 tháng 5 2021

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è !

9 tháng 11 2021

thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko

9 tháng 11 2021

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;

17 tháng 3 2017

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.

16 tháng 3 2017

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.

10 tháng 2 2020

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.

10 tháng 11 2019

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.

30 tháng 5 2018

Bài toán mẫu nhé, bạn tham khảo, không hiểu chỗ nào cứ hỏi nhé :

Lập trình đơn giản

Để khởi động bài toán cùng với Scratch thì nhấn lá cờ màu xanh để bắt đầu :

Lập trình đơn giản

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.

30 tháng 5 2018

Ừ, kì I học Scratch còn sang kì II học Pascal.

Nguyễn Hải Dương