Bài 7. Câu lênh lặp
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.
Đúng 0
Bình luận (0)
Gồm 1 dòng in ra tổng các số lẻ chia hết cho 3 3 từ a� đến b �.
Đọc tiếp
Gồm 1 dòng in ra tổng các số lẻ chia hết cho 3 3 từ a� đến b �.
#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;
}
Đúng 1
Bình luận (0)
viết chương trình nhập vào các điểm thi windows, winword,winword,execl.Tính điểm trung bình(lấy giá trị có 1 số lẻ thập phân)
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.
Đúng 2
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Viết chương trình tính tích S=1×2×3×4×5...×100
Program HOC24;
var i: byte;
s: longint;
begin
s:=1;
for i:=1 to 100 do s:=s*i;
write('S = ',s);
readln
end.
Đúng 2
Bình luận (0)
var i:integer;
s: longint;
begin
s:=1;
for i:=2 to 100 do s:=s*i;
write('S = ',s);
readln
end.
Đúng 0
Bình luận (0)
var
s:longint;
begin
clrscr;
s:=1;
for i:=1 to 100 do s:=s*i;
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
m;=2 while m>10 do m:=m+1; write('m=',m);
m;=2 while m<10 do m:=m+1; write('m=',m);
m:=2; while (m div 2=1) do m:=m+1; write('m=',m);
S:=0;i:=0; While S
Em cần hỗ trợ gì em?
Đúng 0
Bình luận (0)
S:=0;i:=0; While S
So sánh những điểm khác nhau giữa các câu lệnh If...then; for...do; while...do?
Tìm giá trị của s, i trong đoạn chương trình sau:
S:=0; i:=0
while i<=3 do
Begin
i:=i+2;
s:=s+i;
end;
Nhập 1 mảng số nguyên. In ra các số ở vị trí lẻ
Nhập 1 mảng số nguyên. đếm xem có bao nhiêu số lẻ
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.
Đúng 0
Bình luận (0)