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.
program DemSoChiaHetCho5;
var
n, count, i: integer;
begin
write('Nhap vao so n: ');
readln(n);
count := 0;
i := 1;
while i <= n do
begin
if i mod 5 = 0 then // kiem tra so i co chia het cho 5 khong
count := count + 1;
i := i + 1;
end;
writeln('So luong so tu nhien chia het cho 5 tu 1 den ', n, ' la: ', count);
end.
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
if (a>b) cout<<"a cao hon b";
else if (a<b) cout<<"b cao hon a";
else cout<<"a bang b";
return 0;
}
program tong;
uses crt;
var x,y,T:longint;
begin
write('Nhap so nguyen thu nhat');readln(x);
write('Nhap so nguyen thu hai')lreadln(y);
T:=x+y;
write('Tong cua hai so do la: ',T);
readln
end.
Câu 1:
program chieu_cao;
uses crt;
var Nam, Linh: real;
begin
clrscr;
write ('Nhap chieu cao cua Nam:'); readln (Nam);
write ('Nhap chieu cao cua Linh:'); readln (Trang);
if Nam > Linh then writeln ('Ban Nam cao hon');
if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');
readln
end.
Câu 2:
program Tich;
var N,i: interger;
P: longint;
begin
write ('N='); readln (N);
P:=1;
for i:=1 to N do P:=P*i;
writeln (N,' ! = ',P);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long i,n;
double s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
{
if (i%2!=0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecision(2)<<s;
return 0;
}
var x,n:longint;
begin
read(x,n);
while n<>0 do
begin
n:=n-1;
x:=x*x;
end;
write('gia tri ',x,'mu',n,'la : ',x);
end.
hứa 5 sao nhe :)
sorry up nhầm bài
Bài đúng nè
var n,x,x2:longint;
begin
read(x,n);
x2:=x;
n:=n-1; {vì x mũ 1 nên n=n-1}
while n<>0 do
begin
n:=n-1;
x:=x*x2;
end;
write(x,' mu ',n,' = ',x);
end.