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)
Ngân
Xem chi tiết
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]<<" ";

}

Bình luận (1)
Vỹ Thiên
Xem chi tiết
Lovers
8 tháng 11 2016 lúc 20:54

Bài 1 :

Uses crt;

Var x,y:integer;

Begin

clrscr;

Readln(x,y);

Write('Tong cua x,y la ',x+y);

Readln

End.

Bài 2 :

Uses CRT;

var x,y,z:integer; tbc:real;

begin

clrscr;

readln(x,y,z);

tbc:=(a+b+c)/3;

Write('Trung binh cong x,y,z la ',tbc:4:2);

Readln

End.

 

Bình luận (2)
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)
fqfqfqfqfq
Xem chi tiết
Bastkoo
7 tháng 12 2023 lúc 20:39

Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?

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

Bình luận (1)
Đỗ Quốc An
4 tháng 12 2016 lúc 16:19

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

Bình luận (0)
Đinh Trần Thiên Phú 8A2
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:47

#include <bits/stdc++.h>

using namespace std;

long long x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<x+y+z<<endl;

cout<<x*y*z;

return 0;

}

Bình luận (0)