Bài 5. Từ bài toán đến chương trình

Lê Thị Khánh Huyền

Sử dụng ngôn ngữ lập trình Pascal để giải quyết các bài toán sau:

1. Tìm giá trị nguyên dương nhỏ nhất để tổng S = 1+2+3+… > E với E là số nguyên được nhập vào từ bàn phím

2. Kiểm tra số nguyên dương n được nhập vào từ bàn phím có phải là số đối xứng hay không

Phan Tiến Đạt
24 tháng 3 2020 lúc 9:36

Câu 1:

program an_danh;
uses crt;
var i,e,tong:integer;
begin
clrscr;
write('Nhap E: ');readln(e);
i:= 0; tong:= 0;
while tong <= e do
begin
i:= i + 1;
tong:= tong + i;
end;
write('Gia tri nho nhat: ',i);
readln
end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
24 tháng 3 2020 lúc 12:07

Bài 1:

uses crt;
var s,i,e:longint;
begin
clrscr;
write('e='); readln(e);
i:=1;
s:=1;
while s<=e do
begin
inc(i);
s:=s+i;
end;
writeln('gia tri nguyen duong nho nhat de tong S=1+2+3+...>',e,' la: ',i);
readln;
end.

Bài 2:

uses crt;
var n,i,d,kt:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(n,' la so doi xung')
else writeln(n,' khong la so doi xung');
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
phạm ngọc hân
Xem chi tiết
nguyễn thị diệu linh
Xem chi tiết
Trần Thúy Hiền
Xem chi tiết
khánh
Xem chi tiết
Nguyễn Thị Ánh Ngọc
Xem chi tiết
Alice
Xem chi tiết
yin :3
Xem chi tiết
Mai Thị Mỹ Ngọc
Xem chi tiết
thixuanthuy le
Xem chi tiết