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.
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 1:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln('tong cua ',n,' so nguyen dau tien la: ',t);
readln;
end.
Câu 2:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
if i mod 2=0 then t:=t+i;
writeln('tong cac so chan trong 10 so nguyen dau tien la: ',t);
readln;
end.
Câu 3:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
if i mod 2=0=1 then t:=t+i;
writeln('tong cac so le trong 10 so nguyen dau tien la: ',t);
readln;
end.
Câu 4:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 10 do
if i mod 2=0 then inc(dem);
writeln('so cac so chan trong 10 so nguyen dau tien la: ',dem);
readln;
end.
Câu 5:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 10 do
if i mod 2=1 then inc(dem);
writeln('so cac so le trong 10 so nguyen dau tien la: ',dem);
readln;
end.
Câu 6:
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('so luong uoc cua ',n,' la: ',dem);
readln;
end.
Câu 7:
uses crt;
var i,t,n:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 3=0 then inc(dem);
writeln('so cac so chia het cho 3 trong pham vi tu 1 toi',n,' la: ',dem);
readln;
end.
Câu 9:
uses crt;
var i,t,n:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln('tong cac so chia het cho 3 trong pham vi tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 1:
Program HOC24;
var i,n,d : byte;
t: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Co ',d,' phan tu la boi cua 3 va 5');
write('Tong la: ',t);
readln
end.
Bài 2:
Program HOC24;
var i,n,k : byte;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Nhap k: '); readln(k);
for i:=1 to n do if a[i]=k then d:=d+1;
writeln('Co ',d,' phan tu bang ',k);
Write('Cac chi so do la: ');
for i:=1 to n do if a[i]=k then write(i,' ');
readln
end.
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1;i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
return 0;
}
số cho k là sao nhỉ ???