Viết chương trình tính tổng các số lẻ từ 1 đến n bằng câu lệnh while do

Answers ( )

1. khanhngan

   0

   2021-08-16T17:57:06+00:00

   Program FNG;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; i:=1;
           While i<=n do
           Begin
                   s:=s+i;
                   inc(i);
           End;
           Write(‘S = ‘,s);
           Readln
   End.

3. diemmy

   0

   2021-08-16T17:57:16+00:00

   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=1 then s:=s+i;
                   i:=i+1;
           end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

Answers ( )

1. ngocdiep

   0

   2021-08-20T19:45:07+00:00

   1.Program tinhtong;

   var: i,s:=longint;

   Begin

   i:=-1;

   While i

   Begin

   i:=i+2;

   S:=S+i;

   End;

   readln;

   End.

   2.program bai_tap;
   type mang = array[1..1000] of integer;
   var a:mang;
   i,j,n:integer;
   begin
   writeln(‘nhap n:’);
   readln(n);
   i:=1;j:=0;
   while i <= n do
   begin
   write(‘nhap so thu ‘,i,’: ‘);
   readln(a[i]);
   if a[i] mod 2 = 0 then j:=j+a[i];
   inc(i);
   end;
   write(j);
   readln
   end.

   3.

3. hongocha

   0

   2021-08-20T19:45:22+00:00

   Câu 1:

   uses crt;
   var n,i,s:longint;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         while i<=n do
                   begin
                           inc(s,i);
                           inc(i);
                   end;
         writeln(‘Tong: ‘,s); 
         readln;
   end.

   Câu 2:

   uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           i:=1;
           repeat
                   write(‘Nhap so thu ‘,i,’: ‘); readln(n);
                   inc(s,n);
           until n=0;
           writeln(‘Tong: ‘,s);
           readln;
   end.

   Câu 3:

   uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘); readln(n);
           while n<>0 do
                   begin
                           s:=s+(n mod 10);
                           n:=n div 10;
                   end;
           writeln(‘Tong cac chu so cua n la: ‘,s); 
           readln;
   end.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

• Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
• Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

• Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
• Hàng 2: lần lượt là số áo, số mũ còn thừa.

23/10/2022 |   0 Trả lời