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
Ma Phan Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 2 2021 lúc 17:02

Câu 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3: 

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do 

  begin

      writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

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?

Thanh Nguyễn
Xem chi tiết
HT.Phong (9A5)
10 tháng 3 2023 lúc 13:46

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

 

Huỳnh Hoài Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:23

uses crt;

var i,n,t:integer;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

begin

if i mod 2=0 then t:=t+i;

i:=i+1;

end;

write(t);

readln;

end.

Trí Cao
Xem chi tiết
Kiều Vũ Linh
17 tháng 3 2022 lúc 9:18

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

Nguyễn Ngọc
Xem chi tiết
Vũ Quang Huy
20 tháng 3 2022 lúc 9:28

tham khảo

 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

NGUYỄN♥️LINH.._.
20 tháng 3 2022 lúc 9:28

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

thanh mai
Xem chi tiết
HT.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.

Nguyễn Ngọc Dung
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:54

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=10 to 55 do 

  if i mod 2=0 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Vương thúy hằng
Xem chi tiết
Lê Song Phương
3 tháng 1 lúc 21:35

Code python:

 

S=0

for i in range (30,71):

     if i%2!=0:

         S=S+i

print(S)