Những câu hỏi liên quan
Nhật Nguyễn Quang
Xem chi tiết
Lương Ngọc Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 2 2023 lúc 10:43

Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

nông thị ngân
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:41

uses crt;

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

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

Đinh Thu Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 0:06

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

int t=0;

while (n>0)

{

int x=n%10;

t=t+x;

n=n/10;

}

cout<<t;

return 0;

}

Khánh Hoàng
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:32

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.

ngocanh
Xem chi tiết
ngocanh
1 tháng 12 2021 lúc 22:08

giúp em với

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

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

c= a+b;

write('Tong hai so a b la:',c);

end.

Nguyên Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 1 2023 lúc 15:44

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a*a*a+b*b*b+a*b);

readln;

end,

Nguyên Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 1 2023 lúc 15:44

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a*a*a+b*b*b+a*b);

readln;

end,

An Thuyên Đỗ
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2022 lúc 16:20

#include <bits/stdc++.h>

using namespace std;

int n,A[100],i,k,t;

int main()

{

cin>>n>>k;

for (int i=1; i<=n; i++) cin>>A[i];

t=0;

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

if (A[i]%k==0) t+=A[i];

cout<<t;

}