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.

4 tháng 11 2018

bạn dùng bài thực hành trong SGK, thay đổi hằng phi lại thành 22000 là được nhé

4 tháng 12 2016

1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên

Công thức chu vi:(a+b)*2
Công thức diện tích: a*b

Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)

8 tháng 12 2016

de 3

program bt;

uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

14 tháng 11 2019

S=1/2.a.h

14 tháng 11 2019

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

28 tháng 2 2017

Chào bạn!

Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.

Còn nếu là thực hành thì bạn tự thực hành nhé.

Chúc bạn học tốt.

28 tháng 2 2017

haha

3 tháng 11 2017

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3;

readln;

end.

3 tháng 11 2017

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3);

readln;

end.

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

if (a%b==0) cout<<"YES";

else cout<<"NO";

return 0;

}

24 tháng 4 2018

lam on giup minh voi thu nam minh kiem tra roigianroibucminhoho

24 tháng 4 2018

bảng cửu chương 2 hả bạn ?

14 tháng 4 2017

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

demtu:=1;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.banhqua

24 tháng 4 2017

bài này mới đúng nè bạn:

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

X:=X+' ';

demtu:=0;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

delete(X,length(X),1);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.banhqua