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.

20 tháng 3 2019

Lời giải :

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

S1:=0;

for i:=1 to n do S1:= S1+i;

write(S1);

b) S2:=0;

for i:= 1 to 12 do S2:=S2+i;

write(S2);

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

S3:=0;

for i:= 1 to n do

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

write(S3);

d) S4:=0;

for i:=1 to 32 do

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

write(S4);

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

S5:=0;

for i:=1 to n do

if i mod 2=1 then S5:=S5+i;

write(S5);

f) S6:=0;

for i:= 1 to 39 do

if i mod 2=1 then S6:=S6+i;

write(S6);

20 tháng 3 2019

cảm ơn bạn nhưng nếu chỉ viết câu lệnh thì mình viết như thế hả.??

16 tháng 3 2017

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s:3:0);

end.

16 tháng 3 2017

mình làm while do nhé, cái kia để mình tìm hiểu thêm

var S:real;

i,n:longint;

begin

writeln('n=') ; readln(n);

S:=0;

i:=1;

while (i<=n) do

begins=

S:= 9S+1/i;

i:=i+1;

end;

writeln ('S=');

end.

4 tháng 1 2018

mik làm luôn thôi

Bài 1:Viết chương trình tính tổng các số lẻ( số chẵn) của 100 số tự nhiên đầu tiên bằng câu lệnh While..do; For ....do. Bài 2:B1:S←0;n←1 B2:nếu S >200 thì chuyển B4 B3:S←S+n*n; n←n+1 B4: Thông báo kết quả S và kết thúc. Bài 3:Tính tổng của 5+10+15+20+25+30+35+....+100 bằng câu lệnh lặp For ... do ; While .... do Bài 4:Viết chương trình in ra màn hình bản cửu chương của số N trong khoảng từ 1...
Đọc tiếp

Bài 1:Viết chương trình tính tổng các số lẻ( số chẵn) của 100 số tự nhiên đầu tiên bằng câu lệnh While..do; For ....do.

Bài 2:B1:S←0;n←1

B2:nếu S >200 thì chuyển B4

B3:S←S+n*n; n←n+1

B4: Thông báo kết quả S và kết thúc.

Bài 3:Tính tổng của 5+10+15+20+25+30+35+....+100 bằng câu lệnh lặp For ... do ; While .... do

Bài 4:Viết chương trình in ra màn hình bản cửu chương của số N trong khoảng từ 1 đến 9 , số được nhập từ bàn phím và dừng lại để có thể quan sát kết quả.

Bài 5:Cũng như câu lệnh if, có thể dùng câu lệnh for lồng bên trong một câu lệnh for ... do lồng nhau để in ra màn hình các số từ 0 đến 99.

Bài 6: B1:S←10; n←0.

B2: Nếu S≥10, chuyển tới bước 4

B3: n←n+3,S←S-n và quay lại bước 2.

B4: Thông báo S và kết thúc thuật toán.

Bài 7: Viết chương trình sử dụng câu lệnh lặp While ... do để tính trung bình của n số thực X1 , X2 , X3 , ..... Xn . Các số n và X1, X2, X3, ... Xn được nhập vào từ bàn phím.

Bài 8 : Viết chương trình nhập điểm của các bạn trong lớp . Sau đó in ra màn hình số bạn đạt kết quả học tập loại Giỏi ,Khá ,trung bình và kém (theo tiêu chuẩn >8 điểm :Giỏi , từ 6,5 đến 7,9 điểm : Khá , từ 5 điểm đến 6,5 điểm : Trung bình và dưới 5 điểm :Kém ).

0
4 tháng 12 2019

Uses crt;

Var a,b,S1,S2,S: real ;

Begin

Write ('Nhap a: '); readln (a);

Write('Nhap b: '); readln (b);

S1:=2*a*b;

S2:= (3.14*b*sqr(a))/2;

S:= S1+S2;

If (a<>0) and (b<>0) then Write (S);

Readln ;

End.

uses crt;

var a,b,s1:integer;

s2,s:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

s1:=2*a*b;

s2:=(sqr(a)*b*pi))/2;

s:=s1+s2;

writeln(s:4:2);

readln;

end.

var i,n,d:word;
t,b,kt:array[1..10] of word;

procedure nhap;
var f:text;
begin
assign(f,'dulieu.inp');
reset(f);
readln(f,n);
for i:=1 to n do read(f,t[i]);
close(f);
fillchar(b,sizeof(kt),0);
end;

procedure tailap;
var i,j,d:integer;
begin
for i:=1 to n do
begin
d:=0;
for j:=1 to n do
begin
if b[j]=0 then d:=d+1;
if d=t[i]+1 then break;
end;
b[j]:=i;
end;
end;

BEGIN
nhap;
tailap;
for i:=1 to n do write(b[i],' ');
readln
END.

16 tháng 3 2017

var i,n,tb :integer;

begin

readln(n);

tb:=0;

for i:=1 to n do tb:=tb+1;

writeln(tb);

end.

18 tháng 3 2017

program CTTTB;

uses crt;

var TB,x:real; n,y: integer;

begin

Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);

for y:=1 to n do

begin Write('Nhap so thu',y);Readln(x);

TB:=TB+x;

end;

TB:=TB/n;

Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);

Readln;

End.

11 tháng 10 2016

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

11 tháng 10 2016

à có vẻ hơi khó thiệt để ngĩ đã