Những câu hỏi liên quan
Hứa Thị Kim Diệu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2020 lúc 13:04

uses crt;

var n,i,k,dem:integer;

a:array[1..100]of 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] mod 2=0 then inc(dem);

writeln('So phan tu chan trong day so la: ',dem);

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do 

  if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.

Bình luận (0)
Mai Thị Bảo Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 12 2021 lúc 23:11

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d,t;

int main()

{

cin>>a>>b>>c>>d;

t=a+b+c+d;

cout<<t;

return 0;

}

Bình luận (0)
Đoàn My
Xem chi tiết
Bảo Châu Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2022 lúc 13:52

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

Bình luận (0)
Anh Tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 5 2022 lúc 9:16

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

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

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Tiến Dũng
Xem chi tiết
datcoder
4 tháng 11 2023 lúc 0:04

Program HOC24;

var a,b,c,max: integer;

begin

readln(a,b,c);

max=a;

if max>b then max=b;

if max>c then max=c;

write('So lon nhat trong 3 so la: ',max);

readln;

end.

Bình luận (0)
Regina _K
Xem chi tiết
Đuc Lee
Xem chi tiết
Minh Lệ
12 tháng 5 2023 lúc 16:08

Program HOC24;

var i,n,max: integer;

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

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do if a[i]>max then max:=a[i];

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

readln

end.

Bình luận (2)
Kim Thái
Xem chi tiết
Duydash
7 tháng 11 2021 lúc 20:06

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.

Bình luận (0)