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...
Đọc tiếp
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!!!
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.
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.