Bài 7. Câu lênh lặp

Bastkoo
4 tháng 11 2023 lúc 22:11

Program HOC24;

var i,n,t: longint;

begin

readln(n);

t:=0;

for i:=1 to n do

begin

t=t+i;

if t>n then

begin

write(t-i);

break;

end;

end;

readln;

end.

Bình luận (0)
Nguyễn Kim Tuấn Kiệt
Xem chi tiết
Bastkoo
6 tháng 10 2023 lúc 20:27

#include <bits/stdc++.h>

using namespace std;

int main() {

int a,b; long long t = 0;

cin >> a >> b;

for (int i = a; i<=b; i == i++ )

if ((i % 2 != 0) and (i % 3 == 0))  t = t + i ;

cout << t;

return 0;

}

Bình luận (0)
trung
23 tháng 9 2023 lúc 19:31

mấy cái màu đen là gì vậy

Bình luận (0)
CuaCua
Xem chi tiết
Phía sau một cô gái
7 tháng 9 2023 lúc 22:26

program TinhDiemTrungBinh;

uses crt;

var

     diemWindows, diemWinword, diemExcel, diemTrungBinh: real;

begin

     clrscr;

     writeln('Nhập điểm thi Windows:');

     readln(diemWindows);

     writeln('Nhập điểm thi Winword:');

     readln(diemWinword);

     writeln('Nhập điểm thi Excel:');

     readln(diemExcel);

     diemTrungBinh := (diemWindows + diemWinword + diemExcel) / 3;

     writeln('Điểm trung bình: ', diemTrungBinh:0:1);

     readln;

end.

Bình luận (0)
Phạm Dương Phúc Khang
21 tháng 1 lúc 22:58

var

     Windows, Winword, Excel, TB: real;

begin

     clrscr;

     writeln('Nhập điểm thi Windows:');

     readln(Windows);

     writeln('Nhập điểm thi Winword:');

     readln(Winword);

     writeln('Nhập điểm thi Excel:');

     readln(Excel);

    TB := (Windows + Winword + Excel) / 3;

     writeln('Điểm trung bình: ', TB:0:1);

     readln;

end.

Bình luận (0)
Nhung Nguyễn
Xem chi tiết
Minh Lệ
15 tháng 5 2023 lúc 19:22

Program HOC24;

var i: byte;

s: longint;

begin

s:=1;

for i:=1 to 100 do s:=s*i;

write('S = ',s);

readln

end.

Bình luận (0)
Kiều Vũ Linh
16 tháng 5 2023 lúc 7:26

var i:integer;

s: longint;

begin

s:=1;

for i:=2 to 100 do s:=s*i;

write('S = ',s);

readln

end.

Bình luận (0)
Phạm Dương Phúc Khang
21 tháng 1 lúc 23:00

var

s:longint;

begin

     clrscr;

s:=1;

for i:=1 to 100 do s:=s*i;

     readln;

end.

Bình luận (0)
Yếnn Thanhh
Xem chi tiết
Minh Lệ
11 tháng 5 2023 lúc 9:56

Đề yêu cầu gì bạn nhỉ?

 

Bình luận (0)
La Ốp
Xem chi tiết
Nguyễn Trần Thành Đạt
7 tháng 5 2023 lúc 13:47

Em cần hỗ trợ gì em?

Bình luận (0)
La Ốp
Xem chi tiết
Nguyễn Trần Thành Đạt
7 tháng 5 2023 lúc 13:47

Sao vậy em?

Bình luận (0)
qkhanh09
Xem chi tiết
Hazuraki Reydin
Xem chi tiết
Tuan Nguyen
Xem chi tiết
Kiều Vũ Linh
4 tháng 5 2023 lúc 8:23

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

i,n,d:integer;

begin

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

for i:=1 to n do

begin

write('nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then d:=d+1;

end;

write('Cac so o vi tri le la ');

for i:=1 to n do

if i mod 2 <> 0 then write(a[i]:8);

writeln;

write('co ',d,' so le');

readln

end.

Bình luận (0)