Những câu hỏi liên quan
Bé Kunz
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:24

Bài 1: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 5=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:25

Bài 2: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.

scar titan
28 tháng 7 2021 lúc 10:11

python có ko bạn

 

phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:42

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

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

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

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

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:55

Scratch hay java

Khách vãng lai đã xóa
Hoangf Thu
Xem chi tiết
Nguyễn trần bảo trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:42

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

if (x%3==0) 

{

dem++;

t+=x;

}

}

cout<<dem<<" "<<t;

return 0;

}

ty le
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2021 lúc 17:10

uses crt;

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

i,n,dem,s,s1,vt:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

s:=1;

for i:=1 to n do 

  if a[i]=3 then 

begin

inc(dem);

s:=s*a[i];

end;

writeln('So phan tu bang 3 la: ',dem);

writeln('Tich cua chung la: ',s);

for i:=n downto 1 do 

  if a[i]<0 then 

begin

vt:=i;

break;

end;

if vt=0 then writeln('Trong day khong co so am')

else writeln('So am cuoi cung la: ',a[vt]);

s1:=1;

for i:=1 to n do 

  if (a[i] mod 3=0) or (a[i] mod 4=0) then s1:=s1*a[i];

writeln('Tich cac phan tu chia het cho 3 hoac 4 la: ',s1);

writeln('Cac so nguyen la: ');

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Trần Vi Nam Khánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:17

#include <bits/stdc++.h>

using namespace std;

long long n,i,t,dem;

int main()

{

cin>>n;

t=0;

dem=0;

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

if (i%3==0)

{

t=t+i;

dem++;

}

cout<<t<<endl;

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

Bùi Nguyễn Ngọc Anh
Xem chi tiết
Bùi Nguyễn Ngọc Anh
29 tháng 3 2022 lúc 10:25

cíu mình điii

Bùi Nguyễn Ngọc Anh
29 tháng 3 2022 lúc 12:36

giup minh voiii

 

Đỗ Phương Thùy
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 10 2021 lúc 23:26

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem1,dem2;

int main()

{

cin>>n;

dem1=0;

dem2=0;

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

{

cin>>x;

if (x%10==0) dem1++;

if ((x%2==0) or (x%3==0)) dem2++;

}

cout<<dem1<<" "<<dem2;

return 0;

}

Nguyễn Minh Nhật
Xem chi tiết