Giải giúp mình với ngày mai mình kiểm tra rồi : Bài 1 viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến n Bài 2 viết chương trình tính tích (n) của các số tự nhiên từ 1 đến n bằng vòng lặp while Bài 3 viết chương trình tính tổng các số từ 35 đến 77 bằng vòng lặp while

ThanhThanh

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

320391562268488

Bài `1`

Program Hotboy;

Uses crt;

Var i,n,T: Integer;

Begin

clrscr;

Write('Nhap so n tu ban phim');

Readln(n);

For i:=1 to n do

If ( i mod 2=0) then S:=S+i;

Write('Tong can tim la: ',T);

Readln;

End.

Bài `2`

Program Hotboy;

Uses crt;

var S:longint;

i,n : integer;

Begin

Clrscr;

i:=1; S:=1;

Write('Nhap so n tu ban phim '); Readln(n);

While i<=n do

Begin

S:=S*i; inc(i)

End;

Write('Tich la: ',S);

Readln

End.

Bài `3`

Progarm Hotboy;

Uses crt;

Var i,S:longint;

Begin

Clrscr;

While i>34 and i<=77 do

begin

S:=S+i; inc(i);

End;

Write('Tong la: ',S);

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

thunguyendu33

program ct;

uses crt;

var i,n,S:longint;

begin clrscr;

write('Nhap so n: '); readln(n);

S:=0;

for i:=1 to n do

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

write('Tong la: ',S);

readln;

end.

program ct;

uses crt;

var i,n,T:longint;

begin clrscr;

write('Nhap so n: '); readln(n);

i:=1; T:=1;

while i<=n do

begin

i:=i+1;

T:=T*i;

end;

write('Tich la: ',T);

readln;

end.

progarm ct;

uses crt;

var i,S:longint;

begin clrscr;

i:=34; S:=0;

while i<=77 do

begin

i:=i+1;

S:=S+i;

end;

write('Tong tu 35 den 77 la: ',S);

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Trong bài thơ " Kính gửi cụ Nguyễn Du" nhà thơ Tố Hữu viết: Song còn bao nỗi chi cay Gớm quân Ưng Khuyển ghê lầy Sở Khanh Cũng loài hổ báo,ruồi xanh Cũng phường gian ác hôi tanh hại người Đây có phải phép Nhân Hóa ko ? Vì sao?

em hãy kể những hình thức học tập mà em biết? em thấy mình hợp với hình thức học nào nhất? vì sao? (ko chép trên mạng) mình đang vội giúp mình nhé mình vote 5* chọn câu trả lời hay nhất

Mọi người ơi!! Cho mik hỏi!! Ta có : Ox trùng với cạnh Oy thì trùng có nghĩa là gì ? Mọi người trả lời hộ mik!!Học bài mới ko hiểu lắm!! Trả lời đầy đủ!!

Viết bài văn tả người bạn thân nhất của em tên Bảo

Tại vị trí A có độ cao 4m so với mặt đất, một vật được ném lên cao với vận tốc 10m/s. Bỏ qua súc cản không khí lấy g=10m/s2 a. tính độ cao cực đại b. Tính vận tốc trước khi vật chạm đất

Giúp mik với,mai nột lấy điểm kỳ 2, rất gấp luôn

100x3-4+10=

giá trị của biểu thức 3 nhân 3 phần 4 trừ 1 phần 2 bằng bao nhiêu mọi người nhở

giúp iêm vs , iêm cảm ơn nhìuuu

Lệnh lặp for...do viết đầy đủ như thế nào?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến