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.
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a%b==0) cout<<"YES";
else cout<<"NO";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a%b==0) cout<<"YES";
else cout<<"NO";
return 0;
}
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n>0 then writeln(n,' la so duong')
else writeln('ko la so duong');
if (n mod 2=1) and (n mod 3=0) then writeln('n la so le chia het cho 3')
else writeln('n ko la so le chia het cho 3');
readln;
end.
3) var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if (a<b) then write(' Thu tu tang dan cua 2 so la: ',a,' va ',b)
else write(' Thu tu tang dan cua 2 so la: ',b,' va ',a);
readln;
end.
1)
var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
writeln(' Tong cua ',a,' va ',b,' la ',a+b);
writeln(' Hieu cua ',a,' va ',b,' la ',a-b);
writeln(' Tich cua ',a,' va ',b,' la ',a*b);
if b<>0 then writeln(' Thuong cua ',a,' va ',b,' la ',a/b);
readln;
end.
program TinhTong;
uses crt;
var
n, i, tong: integer;
begin
clrscr;
write('Nhap vao so nguyen duong n: ');
readln(n);
tong := 0;
for i := 1 to n-1 do begin
if i mod 2 <> 0 then
tong := tong + i;
end;
writeln('Tong cac so khong chia het cho 2 la: ', tong);
readln;
end.
1:
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
if (x%5==0) cout<<"Yes";
else cout<<"No";
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x;
int main()
{
cin>>x;
if (x%15==0) cout<<"Yes";
else cout<<"No";
return 0;
}
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không?
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
if (a mod 3=0) and (a mod 5=0) then writeln(a,' chia het cho 3 va 5')
else writeln(a,' khong chia het cho 3 va 5');
readln;
end.
mk trân thành cảm ơn ạ!
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 3=0 then writeln('so ban vua nhap chia het cho 3')
else writeln('so ban vua nhap khong chia het cho 3');
readln;
end.