Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trâm Vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:36

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.

Thiên Yết
Xem chi tiết
Biển Tomm
Xem chi tiết
Biển Tomm
8 tháng 1 2022 lúc 15:35

cứu mình với

 

Biển Tomm
8 tháng 1 2022 lúc 16:54

chỉ mình với ạ

Biển Tomm
8 tháng 1 2022 lúc 19:44

ai biết làm chỉ mình với ạ

 

foxbi
Xem chi tiết
HT.Phong (9A5)
18 tháng 3 2023 lúc 7:00

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:54

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.

Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
6 tháng 8 2023 lúc 21:28

C:=3.14*2*R;

S:=3.14*R*R;

Đinh Thị Thu Giang
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:44

uses crt;

var a,b,i,j:integer;

    st:string;

begin

clrscr;

repeat

write('Ban muon ve khong:'); readln(st);

if st='Yes' then

   begin

      write('Nhap chieu dai:'); readln(a);

      write('Nhap chieu rong:'); readln(b);

      for i:=1 to a do

        begin

           for j:=1 to b do

             write('*');

           writeln;

        end;

   end

else break;

until st='No'

readln;

end.

La Thị Thu Phượng
Xem chi tiết
Phụng Trần
11 tháng 12 2016 lúc 14:06

CÂU 1:

program hinhchunhat;

var a,b,S,C: real;

begin

Write('Nhapdodaicanhthuchata=');readln(a);

Write('Nhapdodaicanhthuhaib=');readln(b);

S:= a*b;

C:=(a+b)*2;

Writeln('Dientichhinhchunhatla:',S);

Writeln('Chuvihinhchunhatla:',C);

readln

end.

CHÚC BẠN HỌC TỐT!

Phụng Trần
11 tháng 12 2016 lúc 14:16

CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Chuvihinhtronla:',2*pi*r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

CHÚC BẠN HỌC TỐT (x2)

 

Yến Kim
9 tháng 2 2017 lúc 8:10

B1:Biết chiều dài và chiều rộng của hình chữ nhật.

B2:Lấy chiều dài nhân rộng.

B3:Viết đáp số.

B4:Viết chương trình và kết thúc thuật toán.

phạm minh thư
Xem chi tiết
nguyen thi vang
16 tháng 11 2021 lúc 16:47

Program Chu_nhat; uses crt;

Var a, b, S, CV: real;

Begin    

 Write('Nhap chieu dai:'); readln(a);      

Write('Nhap chieu rong:'); readln(b);  

   S := a*b;      

CV := (a+b)*2;    

 Writeln('Dien tich hinh chu nhat la:',S:3:2);  

   Writeln('Chu vi hinh chu nhat la:',CV:3:2);    

 readln;

end.

 

 

Nhung
23 tháng 5 2022 lúc 11:58

Program chunhat;

uses crt;

var a,b,p,s:real;

begin

clrscr;

writeln('Nhap chieu dai va rong cua hinh chu nhat: ');

readln(a,b);

s:=a*b;
p:=(a+b)*2;

write('Chu vi hinh chu nhat la: ', p:1:2);

writeln;

write('Dien tich hinh chu nhat la: ', s:1:2);

readln;

end.
 

Kết quả: 

Silver Enver
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 10 2021 lúc 23:33

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,cv,dt;

int main()

{

cin>>a>>b;

cv=(a+b)*2;

dt=a*b;

cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;

return 0;

}