K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

21 tháng 4 2023
Viết hàm tính tổng các số từ 1 đến n:

```
def tong_tu_1_den_n(n):
tong = 0
for i in range(1, n+1):
tong += i
return tong
```

Hàm này sử dụng vòng lặp for để tính tổng của các số từ 1 đến n. Ban đầu, ta khởi tạo biến tong bằng 0. Sau đó, ta lặp qua các số từ 1 đến n và cộng chúng vào biến tong. Cuối cùng, ta trả về giá trị của biến tong.

Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b:

```
def hoan_doi(a, b):
temp = a
a = b
b = temp
return a, b
```

Thủ tục này sử dụng biến tạm temp để lưu giá trị của a trước khi hoán đổi. Sau đó, ta gán giá trị của b cho a và giá trị của temp (tức là giá trị ban đầu của a) cho b. Cuối cùng, ta trả về hai giá trị đã được hoán đổi.

1)

uses crt;

var a,b,bcnn,i:integer;

begin

clrscr;

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

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

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

 

2:

procedure hoandoi(a,b:integer);

var tam:integer;

begin

tam:=a;

a:=b;

b:=tam;

end;

  

Mình viết chương trình chính thôi, bạn tự viết chương trình con nhé

uses crt;

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

i,n,t,tam,j: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 

  t:=t+a[i];

writeln('Tong diem cua ',n,' ban la: ',t);

for i:=1 to n-1 do

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

procedure hoandoi(a,b:integer);

var tam:integer;

begin

tam:=a;

a:=b;

b:=tam;

end;

uses crt;

var n,i,t,s:integer;

begin

clrscr;

repeat

readln(n);

until n<>0;

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

writeln(t);

s:=1;

for i:=1 to n do 

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

writeln(s);

readln;

end.

16 tháng 5 2023

Var n,sc,sl,i:longint;

Begin

Write('N = ');readln(n);

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.

20 tháng 10 2021

2:

#include <bits/stdc++.h>

using namespace std;

 double xm,ix,iy,r,ma,mb;

int main()

{

cin>>ix>>iy;

cin>>r;

cin>>ma>>mb;

xm=sqrt((ix-ma)*(ix-ma)+(iy-mb)*(iy-mb));

if (xm==r) cout<<"phai";

else cout<<"khong phai";

return 0;

}

21 tháng 10 2021

Có thể biểu diễn bằng sơ đồ khối không cậu ?