Những câu hỏi liên quan
bao ngan
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2022 lúc 8:13

uses crt;

var i:integer;

a:array[1..20]of string;

begin

clrscr;

for i:=1 to 20 do readln(a[i]);

for i:=1 to 20 do 

  writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);

readln;

end.

Bình luận (0)
Phạm Tạ Thảo Nguyên 8c
Xem chi tiết
Minh Lệ
28 tháng 3 2022 lúc 5:51

Program Hoc24;

var i: byte;

begin

for i:=1 to 20 do

writeln('Chao ban thu ',i);

readln

end.

Bình luận (2)
Hoàng Hải Bình
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
NGUYỄN♥️LINH.._.
20 tháng 3 2022 lúc 9:25

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (2)
Vũ Quang Huy
20 tháng 3 2022 lúc 9:26

tham khảo

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (4)
Valt Aoi
20 tháng 3 2022 lúc 9:27

Tham khảo

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Bình luận (0)
nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 10 2021 lúc 0:31

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

Bình luận (0)
Ma Phan Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 2 2021 lúc 17:02

Câu 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3: 

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do 

  begin

      writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

Bình luận (0)
vũ thành đông
Xem chi tiết
Thanh
Xem chi tiết
Trần Thị Thùy Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 21:11

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 4 do 

  begin

for j:=1 to 4 do 

  write('*');

writeln;

end;

readln;

end.

Bình luận (0)