Những câu hỏi liên quan
Lê Vũ Khánh Thy
Xem chi tiết
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;

Bình luận (0)
Thiên Yết
Xem chi tiết
Snsbbdbd Xnxb
Xem chi tiết
Kiều Vũ Linh
13 tháng 5 2023 lúc 8:57

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.

Bình luận (0)
foxbi
Xem chi tiết
Thanh 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.

Bình luận (0)
BOXWICKED
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.

Bình luận (0)
nguyễn nhật thành nam
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:40

#include <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

cout<<a*4<<endl;

cout<<a*a;

return 0;

}

Bình luận (0)
Trần Linh Chi
Xem chi tiết
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:27

Var a,b,s,p:real;

Begin

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

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

p:=(a + b)*2;

s:=a*b;

Write('P = ',p:10:2,' va s = ',s:10:2);

Readln;

End.

Bình luận (0)
Ngô Thành Chung
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:28

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

begin  

if st[i]=' ' then writeln

else write(st[i]);

end;

readln;

end.

Bình luận (1)
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;

}

Bình luận (0)
Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

readln;

end.

Bình luận (0)