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
Ngân
Xem chi tiết
thanh thuý
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:56

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:57

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Hehe
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 1 2022 lúc 20:42

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

A8_ Võ Thị Thương
Xem chi tiết
Phía sau một cô gái
5 tháng 5 2023 lúc 21:07

s = input("Nhập một xâu bất kỳ: ")

print("Các ký tự và chữ số trong xâu là:")

for char in s:

       if char.isdigit() or char.isalpha():

              print(char)

Minh Lệ
Xem chi tiết
Lưu Võ Tâm Như
28 tháng 3 2023 lúc 20:18

Trong các câu sau câu nào đúng?

1) Loa là một thành phần cơ bản của máy tính.

2) Nhờ có màn hình ta nghe được nhạc phát ra từ máy tính.

3) Nhờ có bàn phím, ta có thể nhập các chữ, số và kí hiệu vào máy tính.

Linh Daxua
Xem chi tiết
Kiều Vũ Linh
24 tháng 12 2022 lúc 15:01

var st:string;

dem,i:integer;

begin

write('Nhap xau S = ');readln(st);

dem:=0;

for i:=1 to length(st) do

if st[i] = ' ' then dem:=dem+1;

dem:=dem+1;

write('So tu cua xau S la ',dem);

readln;

end.

Lê Thị Yến Vy
Xem chi tiết
Đỗ Quốc An
4 tháng 12 2016 lúc 16:18

program ct_dautien;

uses crt;

var x:integer;

begin

writeln('moi nhap a,b');readln(a,b);

if a>b then write(a) else write (b);

readln

end.

Đỗ Quốc An
4 tháng 12 2016 lúc 16:19

minh viet lon, sua lai: var a,b: integer;

30. Hoàng Nhơn
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 14:33

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++)

cout<<a[i]<<" ";

}

Ne Su
Xem chi tiết
An Phú 8C Lưu
28 tháng 11 2021 lúc 9:29

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.