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)
Huy
Xem chi tiết
nguyễn mạnh hiếu
5 tháng 12 2021 lúc 19:36

var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
 cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.

mỗi câu a,b,c thì readln rồi end nhé

Bình luận (0)
Khanh Linh
Xem chi tiết
Minh Lệ
18 tháng 2 2021 lúc 19:10

Program HOC24;

var i.n: integer;

a: array[1..250] of integer;

begin

for i:=1 to n do

begin

write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do write(a[i],' ');

readln

end.

Bình luận (0)
Buddy
18 tháng 2 2021 lúc 9:35

uses crt;

var i,n:integer;     A: Array[1..50] of integer;begin        clrscr;        readln(n);readln(k);        for i:=1 to n do        begin                write('A[',i,'] = ');                readln(A[i]);        end;        for i:=1 to A[i] do        if (A[i] > k) then write(A[i]);        readlnend.

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 2 2021 lúc 20:51

uses crt;

var a:array[1..50]of real;

i,n:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=50);

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  writeln(a[i]:4:2);

readln;

end.

Bình luận (0)
Tạ Quang Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:34

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%9==0) cout<<"n la boi cua 9";

else cout<<"n khong la boi cua 9";

return 0;

}

Bình luận (0)
Trần Hà Thư
Xem chi tiết
Hquynh
16 tháng 1 2021 lúc 21:03

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=9 to 50 writeln(i);

readln;

End.

Bình luận (0)
Minh Nhân
16 tháng 1 2021 lúc 21:04

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=9 to 50 writeln(i);

readln;

End.

Bình luận (0)
Nguyễn Lê Phước Thịnh
16 tháng 1 2021 lúc 21:57

uses crt;

var i:integer;

begin

clrscr;

for i:=9 to 50 do 

  write(i:4);

readln;

end.

Bình luận (0)
nguyen minh thường
Xem chi tiết
💢Sosuke💢
18 tháng 5 2021 lúc 11:49

#TK

program thongtincanhan

uses crt;

begin

clrscr;

writeIn (' Ho va ten cua ban ');

writeIn (' Lop cua ban ');

writeIn (' Dia chi cua ban ');

readIn

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 5 2021 lúc 12:08

uses crt;

var ten,lop,diachi:string;

begin

clrscr;

write('Nhap ten:'); readln(ten);

write('Nhap lop:'); readln(lop);

write('Nhap dia chi:'); readln(diachi);

writeln('Ten la: ',ten);

writeln('Lop la: ',lop);

writeln('Dia chi la: ',diachi);

readln;

end.

Bình luận (0)
Lương Ngọc Anh
Xem chi tiết
Phía sau một cô gái
31 tháng 3 2023 lúc 20:25

Câu 1:

ho_ten = input("Nhập họ tên: ")

tach_ho_ten = ho_ten.split()

if len(tach_ho_ten) > 1:

     ten = tach_ho_ten[-1]

     print("Tên của bạn là:", ten)

else:

     print("Nhập sai định dạng họ tên")

Câu 2: 

s = input("Nhập xâu: ")

hoa = s.upper()

print(hoa)

Bình luận (0)
Nguyễn Thị Tươi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 1 2023 lúc 14:56

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

Bình luận (0)