Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trang Thiên

Bài 1: viết chương trình nhập số nguyên dương n, in ra tổng các số nguyên dương từ 1 đến n là bội của 3 hoặc 5.
Bài 2: viết chương trình nhập vào 3 số a,b,c bất kỳ, kiểm tra xem 3 số có thể là độ dài 3 cạnh của 1 tam giác hay không và thông báo ra màn hình
Bài 3: viết chương trình nhập n số bất kỳ. đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. in ra màn hình thông báo ''cac so lon hon 10 va nho hon 20'' và ''tong cua chung la''
Mọi ng giúp mik với ạ, tin học lớp 8, cảm ơn các cậu!!!

Minh Lệ
16 tháng 3 2020 lúc 19:09

Bài 1:

Program hotrotinhoc;

var i,n: integer;

t: longint;

begin

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

for i:=1 to n do

if (i mod 3=0) or (i mod 5=0) then t:=t+i;

write(t);

readln

end.

Bài 2: Bạn tham khảo bài 2 ở link sau Câu hỏi của dang thi khanh ly - Tin học lớp 11 | Học trực tuyến

Bài 3:

program hotrotinhoc;

var d,i,n: integer;

a: array[1..32000] of integer;

t: longint;

begin

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

d:=0; t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,':'); readln(a[i]);

if (a[i]>10) and (a[i]<20) then

begin

inc(d);

t:=t+a[i];

end;

end;

Writeln('Cac so lon hon 10 va nho hon 20 la ',d);

write('Tong cua chung la :',t);

readln

end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
17 tháng 3 2020 lúc 19:18

Bài 1:

uses crt;
var n,i,t:longint;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
t:=0;
for i:=1 to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln('tong cac so la boi cua 3 hoac 5 la: ',t);
end
else writeln('vui long nhap so nguyen duong');
readln;
end.

Bài 2:

uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la do dai 3 canh trong mot tam giac')
else writeln('day khong la do dai 3 canh trong mot tam giac');
end
else writeln('vui long nhap ba so duong');
readln;
end.

Bài 3:

uses crt;
var n,i,t,dem:longint;
a:array[1..100]of longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------------------------}
dem:=0;
t:=0;
for i:=1 to n do
if (a[i]>10) and (a[i]<20) then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('cac so lon hon 10 va nho hon 20 la: ',dem);
writeln('tong cua chung la: ',t);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
phamthiminhanh
Xem chi tiết
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết
Phùng Việt Anh
Xem chi tiết
Hưng Quốc
Xem chi tiết
Ma Phan Đức
Xem chi tiết
ytkc
Xem chi tiết
duy lê
Xem chi tiết
Thị Ngọc Phan
Xem chi tiết