viết chương trình tính tổng các số tự nhiên lẻ chia hết cho 5 và nhỏ hơn 1000 Hướng dẫn - i ban đầu = 5 - sau mỗi lần lặp 10, lên 10 (i = i thuộc 10 ) - Điều kiện cặp i < 1000
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
30 tháng 3 2022
a: 125 mod 5<>0
b:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 50 do t:=t+i;
write(t);
readln;
end.
c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
d:
Dạng thiếu: if <điều kiện> do <câu lệnh>;
Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;
28 tháng 2 2021
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.
3 tháng 12 2016
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
18 tháng 4 2017
a)nguyên tử theo hàm độ x y là nguyên tử y
b)giá trị là o,87645
c)784736
d)878,985,354,894,9045
chị học lớp 9 rồi nên hiểu mà,chị đc 10 bài này đó,tin chị đi
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 1000 do
if (i mod 10=5) and (i mod 2=1) then t:=t+i;
writeln(t);
readln;
end.