Câu 1: Viết chương trình tính tổng n số tự nhiên đầu tiên: S= 1+ 2 + 3 + … + n Câu 2: Viết chương trình tính tích n số tự nhiên đầu tiên: S= 1* 2 * 3 * … * n Câu 3: Viết chương trình tìm n sao cho tổng: S= 1+ 2 + 3 + … + n là nhỏ nhất lớn hơn 1000. Câu 4: Viết chương trình kiểm

sepngoc

2 năm trước

Câu 1: Viết chương trình tính tổng n số tự nhiên đầu tiên: S= 1+ 2 + 3 + … + n Câu 2: Viết chương trình tính tích n số tự nhiên đầu tiên: S= 1* 2 * 3 * … * n Câu 3: Viết chương trình tìm n sao cho tổng: S= 1+ 2 + 3 + … + n là nhỏ nhất lớn hơn 1000. Câu 4: Viết chương trình kiểm tra n nhập vào có phải là số nguyên tố hay không. Câu 5: Viết chương trình nhập vào điểm môn tin. Sau đó hãy xếp loại cho từng bạn theo điều kiện như sau: • Điểm tin lớn hơn hoặc bằng 8 là loại giỏi • Điểm tin từ 6.5 đến nhỏ hơn 8 là loại khá • Điểm tin từ 5 đến nhỏ hơn 6.5 là loại trung bình • Điểm tin nhỏ hơn 5 là loại kém Câu 6: Viết chương trình tính tổng của phần tử nhỏ nhất với phần tử lớn nhất trong n phần tử là số nguyên được nhập từ bàn phím * giúp mk vs huhu, vã môn tin lắm rồi. Cùng lắm là làm câu 5 thui :((*

Loga Sinh Học lớp 12

0 lượt thích 43 xem

1 trả lời

Thích Trả lời

dieuhang03

Câu 1:

uses crt;
var n,i,s:longint;
begin
clrscr;
write('N= ');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s= ',s);
readln
end.

Câu 2:

uses crt;
var n,i,s:longint;
begin
clrscr;
write('N= ');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln('s= ',s);
readln
end.

Câu 3:

uses crt;
var n,s:longint;
begin
clrscr;
s:=0;
while s<=1000 Do
begin
inc(n);
s:=s+n;
end;
writeln('n=',n);
readln
end.

Câu 4:

uses crt;
var n:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>1)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
write('N= ');readln(n);
if nt(n) then writeln('n la so nguyen to')
else writeln('n khong la so nguyen to');
readln
end.

Câu 5:

uses crt;
var n:real;
begin
clrscr;
write('Nhap diem mon tin: ');readln(n);
if n>8 then writeln('Gioi') else
if n>6.5 then writeln('Kha') else
if n>5 then writeln('Trung binh') else
writeln('Kem');
readln
end.

Câu 6:

uses crt;
var n,max,min,i:longint; a:array[1..100000]of longint;
begin
clrscr;
write('n=');readln(n);
min:=high(longint);
for i:=1 to n Do
begin
write('a[',i,']=');readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Tong: ',max+min);
readln
end.

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

thuyhoanchi2014

Câu 1:

program Cau_1;

uses crt;

var n,i,S: integer;

Begin

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

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

write('S = ',S);

readln

End.

Câu 2:

program Cau_2;

uses crt;

var n,i,S: integer;

Begin

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

S:=1;

for i:=1 to n do S:=S*i;

write('S = ',S);

readln

End.

Câu 3:

program Cau_3;

uses crt;

var n,S: integer;

Begin

n:=1;

while S<=1000 do

begin

S:=S+n;

n:=n+1;

end;

writeln('S = ',S);

write('n = ',n);

readln

End.

Câu 4:

program Cau_4;

uses crt;

var n,i,d,j: longint;

Begin

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

for i:=1 to n do

begin

d:=0;

for j:=1 to i do

if i mod j=0 then d:=d+1;

if d=2 then write(n,' la so nguyen to')

else write(n,' khong la so nguyen to');

end;

readln

End.

Câu 5:

Bạn xem hình

Mình chạy thử chương trình rồi

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

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

Dịch hộ tui câu này : nhờ họ tuyên truyền tốt mà tòa án đã trả lại công bằng cho họ * cấm dùng dịch :))

Bài `2:` Cần bao nhiều số hạng của tổng `S = 1 + 2 + 3 + ...` để được `1` số có `3` số giống nhau Bài `3:` Cho tam giác `ABC` có `\hat{B} - \hat{C} = 90^o`. Vẽ phân giác `AD`. Tính `\hat{ADB}`

1. Cho biết góc xOy và góc MAN là hai góc phụ nhau: a. Tính số đo góc xOy biết: góc MAN= 20 độ b. Tính số đo góc xOy và MAN biết: góc xOy + góc MAN = 10 độ. 2.Cho hai góc kề bù: góc tAx và góc xAt' Biết: góc xat'=100 độ. Tính số đo góc tAx

làm giúp mình câu 3 phần I và câu 4 phần II được không các bạn chuyên Văn dễ thương oiiii :3 cảm ơn các cậu nhieuuu

một bể cá dạng hình hộp chữ nhật chiều dài 2m ,chiều rộng 1,5 m và chiều cao 80 cm bé đang đầy nước người ta thả một hòn đá vào bể thì nước tràn ra tính thể tích Hòn Đá biết rằng lượng nước tràn ra bằng 1/5 ? Giúp mình với ạ

nghị luận về tiếng xe cứu thương

Ai giúp mik vs ạ !!! Sẽ trả đầy đủ nhất !!!

Câu 1: em hãy viết một đoạn văn (khoảng 10 dòng) cảm nhận của em về lòng yêu nước của nhân dân ta. Câu 2: " Dân ta có một lòng nồng nàn yêu nước. Đó là một truyền thống quý báu của ta. Từ xưa đến nay, mỗi khi Tổ quốc bị xâm lăng, thì tinh thần ấy lại sôi nổi, nó kết thành một làn sóng vô cùng mạnh mẽ, to lớn, nó lướt qua mọi sự nguy hiểm, khó khăn, nó nhấn chìm tất cả lũ bán nước và lũ cướp nước. Lịch sử ta có nhiều cuộc kháng chiến vĩ đại chứng tỏ tỉnh thần yêu nước của dân ta. Chúng ta có quyền tự hào vì những trang lịch sử vẻ vang thời dai Bà Trung, Bà Triệu, Trần Hưng Đạo, Lê Lợi, Quang Trung... Chúng ta phải ghi nhớ công lao của các vị anh hùng dân tộc, vì các vị ấy là tiêu biểu của một dân toc anh hùng." Từ nội dung đọc - hiểu, hãy viết một đoạn văn (khoảng 10 dòng) cảm nhận về nội dung đoạn văn?

Số học sinh khối 8 của một trường THCS là 162 em . Số học sinh nữ bằng 4/5 số học sinh nam . Tính số học sinh nam , học sinh nữ của khối tám đó .

Vẽ cu shin cute k cần full người đâu ak. Kí tên đầy đủ

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