Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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

Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

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;

}

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
Bpxi
Xem chi tiết
lê thế hiếu
Xem chi tiết
Trần Tuấn Hoàng
10 tháng 4 2022 lúc 14:50

-Python:

n=int(input('n= '))
t=0

for i in range(1,2*n):
    if i%2!=0:
        t+=i**3

print('Tong=',t)

 

Nguyễn Lê Phước Thịnh
10 tháng 4 2022 lúc 18:26

#include <bits/stdc++.h>

using namespace std;

long long i,n,t;

int main()

{

cin>>n;

t=0;

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

if (i%2!=0) t+=pow(i,3);

cout<<t;

return 0;

}

Nguyễn Trường An
Xem chi tiết
lê thị bích ngọc
19 tháng 11 2021 lúc 16:36

bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà

Trần Đức Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 22:31

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')

else writeln(a,' khong chia het cho 3 va 5');

readln;

end.

Minh Lệ
14 tháng 12 2020 lúc 18:49

Program HOC24;

var a: integer;

begin

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

if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');

readln

end.

Nguyễn Lê Phước Thịnh
14 tháng 12 2020 lúc 22:26

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va chia het cho 5')

else writeln(a,' khong chia het cho 3 va 5');

readln;

end.

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

uses crt;

var n:integer;

begin

clrscr;

repeat

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

until n>0;

if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

else writeln(n,' khong la so chinh phuong');

readln;

end.

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

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.