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
Nguyễn Ngọc
Xem chi tiết
Vũ Quang Huy
20 tháng 3 2022 lúc 10:00

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=0 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

Hồng Nhung Phạm Huỳnh
20 tháng 3 2022 lúc 10:08

program tinh_tong_chan;

uses crt;

Var i,N,S: integer;

begin

clrscr;

writeln('nhap so n');

readln(N);

S:=0;

i:=1;

while i <= N do

begin

S:=S+i;

i:=i+1;

end;

Writeln('tong la: ',S);

readln;

end.

đây bạn nha

 

32.Thuỳ 7/2
Xem chi tiết
Nguyễn Hoàng Duy
13 tháng 3 2023 lúc 22:56

1.

Var i ,n : integer;

S , T : real;

Begin

Write ('n:') ;

Read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' , S );

Writeln (' Tich của ' ,n,', T );

Readln;

End.

Nguyễn Hoàng Duy
13 tháng 3 2023 lúc 23:02

2.

program SumAndProductOfNumbers;

var
  n, m, i, sum, product: integer;

begin
  writeln('Enter the values of n and m: ');
  readln(n, m);
  
  sum := 0;
  product := 1;
  
  for i := n to m do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from ', n, ' to ', m, ' is: ', sum);
  writeln('The product of numbers from ', n, ' to ', m, ' is: ', product);
end.

Nguyễn Hoàng Duy
13 tháng 3 2023 lúc 23:03

3.

program SumAndProductOfNumbers;

var
  i, sum, product: integer;

begin
  sum := 0;
  product := 1;
  
  for i := 10 to 25 do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from 10 to 25 is: ', sum);
  writeln('The product of numbers from 10 to 25 is: ', product);
end.

Cao phong Ngô hữu
Xem chi tiết
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.

Paper43
Xem chi tiết
Pika Pika
10 tháng 5 2021 lúc 14:01

1x2x3x..x100

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 17:59

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=1;

for i:=1 to 100 do 

  s:=s*i;

writeln(s:0:0);

readln;

end.

Trần Nam Khánh
12 tháng 5 2021 lúc 16:54

Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=100) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.

Ánh sao
Xem chi tiết
Phạm Nguyễn Hồng Anh
28 tháng 2 2021 lúc 16:45

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

 

Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 19:17

*Cách khác: Dùng for

Câu 1: 

uses crt;

var p,i:longint;

begin

p:=1;

for i:=1 to 4 do 

  p:=p*i;

writeln(p);

readln;

end.

Câu 2: 

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

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

writeln(s);

readln;

end.

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.

Nguyến Ngọc Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 14:56

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

Lê Văn Hà TámB
Xem chi tiết
Phong Thần
14 tháng 2 2022 lúc 7:57

Câu 1: 

program chieu_cao;

uses crt;

var Nam, Linh: real;

begin

clrscr;

write ('Nhap chieu cao cua Nam:'); readln (Nam);

write ('Nhap chieu cao cua Linh:'); readln (Trang);

if Nam > Linh then writeln ('Ban Nam cao hon');

if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');

readln

end.

Phong Thần
14 tháng 2 2022 lúc 8:11

Câu 2: 

program Tich;

var N,i: interger;

      P: longint;

begin

write ('N='); readln (N);

P:=1;

for i:=1 to N do P:=P*i;

writeln (N,' ! = ',P);

readln

end.

Nguyễn Lê Phước Thịnh
14 tháng 2 2022 lúc 8:32

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

readln(n);

for i:=1 to 10 do 

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

readln;

end.

39 _ 7G1_ Trương Uyển Uy...
Xem chi tiết
39 _ 7G1_ Trương Uyển Uy...
29 tháng 12 2022 lúc 20:00

Đề thi cuối kì 1 đâyloading...  

Nguyễn Lê Phước Thịnh
30 tháng 12 2022 lúc 0:12

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

s:=s*i;

writeln(s);

readln;

end.