Những câu hỏi liên quan
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)
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.

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

Bình luận (0)
Thap Nguyen
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:51

program CompareNumbers;

var
  x, y: real;

begin
  // Bước 1: Nhập 2 số thực x và y từ bàn phím
  write('Nhap so thuc x: ');
  readln(x);

  write('Nhap so thuc y: ');
  readln(y);

  // Bước 2: So sánh x và y, in ra số lớn hơn
  if x > y then
    writeln('x lon hon y')
  else if x < y then
    writeln('y lon hon x')
  else
    writeln('x bang y');

  readln;
end.


(khoog bt đúng ko)

Bình luận (0)
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
Kiều Vũ Linh
18 tháng 3 2023 lúc 7:55

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

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)
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)
Anhthuwliz
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2021 lúc 21:44

uses crt;

var n:longint;

begin

clrscr;

readln(n);

if n mod 2=0 then write('la so chan')

else write('la so le');

readln;

end.

Bình luận (0)
Sách Giáo Khoa
Xem chi tiết
Hưng Trần Vĩnh
25 tháng 3 2018 lúc 20:16
VAR i,n:Integer; a :array[1..100] of Integer; BEGIN write('nhap so phan tu ');readln(N); for i := 1 to N do BEGIN write('phan tu thu ',i,' ');readln(A[i]); END; for i := 1 to N do BEGIN writeln; write(a[i]); END; readln; END.
Bình luận (0)