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

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

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

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

if (m%n==0) cout<<m/n;

else if (n%m==0) cout<<n/m;

else cout<<m+n;

return 0;

}

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

}

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

Bình luận (0)
Cường Nước
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 15:13

#inclue <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

if (a<=0) cout<<"khong phai";

else cout<<fixed<<setprecision(2)<<a*a;

return 0;

}

Bình luận (0)
krt-ttt
31 tháng 10 2021 lúc 20:09

code bằng python

a = input('nhap a ')

if a>0:

    print('a la canh cua hinh vuong. Dien tich S = ', a**2)

else:

    print('a khong phai la canh hinh vuong')

Bình luận (0)
trần Thị Mỹ Duyên
Xem chi tiết
asuna
17 tháng 12 2017 lúc 9:20

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

Bình luận (2)
monsta x cho bi dien
17 tháng 12 2017 lúc 9:46

what dờ phắc

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

Bình luận (0)
Mai Duyên-08-83
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 1 2022 lúc 23:20

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

Bình luận (0)
Kiều Vũ Linh
14 tháng 1 2022 lúc 15:56

Var t,n:integer;

begin

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

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

Bình luận (0)