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!!!
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
![](https://rs.olm.vn/images/avt/0.png?1311)
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
![](https://rs.olm.vn/images/avt/0.png?1311)
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%3==0) cout<<i<<" ";
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
Program Tin_hoc;
Uses Crt;
Var N: Integer;
Begin
Write('Nhap so nguyen N');
Readln(N);
If N>0 then write(' So do la so duong ');
If N<0 then write(' So do la so am ');
If N=0 then write(' So do khong la so am va so duong');
Readln;
End.
Program Tin_hoc;
Uses Crt;
Var N: Integer;
Begin
Write('Nhap so nguyen N');
Readln(N);
If N>0 then write(' So do la so duong ');
If N<0 then write(' So do la so am ');
If N=0 then write(' So do khong la so am va so duong');
Readln;
End.
![](https://rs.olm.vn/images/avt/0.png?1311)
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%15==0) t=t+x;
}
cout<<t;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
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.