K
Khách

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.

1 tháng 10 2021

Program HOC24;

var i,n,x: integer

fx,f: longint;

begin

write('Nhap x: '); readln(x);

fx:=1;

for i:=1 to 10 do

begin

fx:=fx*x;

if i=5 then f:=fx;

end;

fx:=fx+f+1;

write('f(',x,')=',fx);

readln

end.

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

int t=0;

while (n>0)

{

int x=n%10;

t=t+x;

n=n/10;

}

cout<<t;

return 0;

}

22 tháng 12 2020

uses crt;

var x,y:integer;

begin

clrscr;

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

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

if x>y then writeln(x-y)

else writeln(x+y);

readln;

end.

22 tháng 12 2020

uses crt;

var x,y:integer;

begin

clrscr;

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

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

if x>y then writeln(x-y)

else writeln(x+y);

readln;

end.

Bài 1: 

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 5=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

Bài 2: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Câu 1:

var a:array[1..100]of integer;

Câu 2: 

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

 write(a[i]:4);

readln;

end.

Câu 3: 

uses crt;

var a:array[1..15]of integer;

i,n,t:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=15);

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]<=100;

end;

writeln('Mang da nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t);

writeln('Cac so chan o vi tri le trong day la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);

readln;

end.

15 tháng 3 2021

Program HOC24;

var m,i,d: integer;

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

begin

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

for i:=1 to m do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap X = '); readln(x);

d:=0;

for i:=1 to n do if a[i]=x then d:=d+1;

write(X,' xuat hien ',d,' lan trong mang');

readln

end.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double x;

int main()

{

cin>>x;

if (x>0) cout<<"X la so duong";

else cout<<"X la so am";

return 0;

}

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if a[i] mod 7=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 7 la: ',t);

readln;

end.