Những câu hỏi liên quan
Sun Amy
Xem chi tiết
V.Anh
Xem chi tiết
Cao ngocduy Cao
16 tháng 5 2022 lúc 18:38

Bạn VÔ đây mà tham khảo :

https://sachgiaibaitap.com/sach_giai/giai-tin-hoc-lop-11-bai-7-cac-thu-tuc-chuan-vao-ra-don-gian/#gsc.tab=0

~chucs hok tốt

Bình luận (1)
thanh mai
Xem chi tiết
Thanh Phong (9A5)
11 tháng 4 2023 lúc 15:22

Cách 1 dùng lệnh for do:

Uses crt;

var i,n,k: integer;

begin clrcsr;

readln(n);

for i:=1 to n do begin

if(i mod 2=0) and (i>=10) then k:=k*i;

end;

writeln(k);

readln;

end.

Cách 2 dùng lệnh while do

Uses crt;

var m,n,o: integer;

begin clrcsr;

readln(n);

o:=1;

m:=1;

while (m<n) do begin

m:=m+1;

if(m mod 2=0) and (m>=10) then o:=o*m;

end;

writeln(o);

readln;

end.

Bình luận (0)
Hùng Bùi
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 10:00

n = int(input("Nhap n: "))
sum_even = 0
for i in range(2, n+1, 2):
    sum_even += i
print("Tong cac so chan lien tiep den", n, "la:", sum_even)

 

python ha:0?

Bình luận (4)
Huy Tùng Vũ
Xem chi tiết
Học Đại
Xem chi tiết
nhattien nguyen
4 tháng 1 2022 lúc 11:48

1B

2D

Bình luận (1)
Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 15:01

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

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

if (i%6==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
Huy Tran
Xem chi tiết
Huy Tran
21 tháng 4 2020 lúc 21:29

Đr bạn

Bình luận (0)
 Khách vãng lai đã xóa
Lê Nguyễn Thanh Quân
Xem chi tiết
M1014-AWM
27 tháng 3 2021 lúc 17:16


program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

 

Bình luận (1)
nguyễn an phát
27 tháng 3 2021 lúc 20:35

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
27 tháng 3 2021 lúc 20:51

uses crt;

var a:array[1..100]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 

  t:=t+a[i];

writeln('Tong cac so la: ',t);

writeln('Trung binh cong cac so la: ',t/n:4:2);

readln;

end.

Bình luận (0)