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.

uses crt;

var n,i:integer;

gt:real;

begin

clrscr;

repeat

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

until n>=0;

gt:=1;

for i:=1 to n do 

  gt:=gt*i;

writeln(n,'!=',gt:0:0);

readln;

end.

14 tháng 3 2023

program ChenLe;

var

     n, i, chan, le: integer;

begin

     chan := 0;

     le := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     for i := 1 to n do

     begin

          if (i mod 2 = 0) then

          begin

               writeln(i, ' la so chan');

               chan := chan + 1;

          end

          else

          begin

               writeln(i, ' la so le');

               le := le + 1;

          end;

     end;

     writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');

     readln;

end.

Câu 3: 

#include <bits/stdc++.h>

using namespace std;

string a[1000];

int n,i,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>a[i];

if (a[i]=='a') dem++;

}

cout<<dem;

return 0;

}

5 tháng 7 2021

Program HOC24;

var i,n: integer;

begin

write('Nhap N: '); readln(n);

if n mod 2=0 then write(n,' la so le') else write(n,' la so chan');

readln

end.

uses crt;

var n:integer;

begin

clrscr;

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

if n mod 2=0 then write(n,' la so chan')

else write(n,' la so le');

readln;

end.

1. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác vuông không? 2. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác đều không? 3. VCT nhập vào 1 số nguyên bất kì, kiểm tra xem số đó có chia hết cho 4 và 5 hay không? 4. VCT nhập vào 2 số nguyên bất kì, kiểm tra xem 2 số đó có chia hết cho nhau hay ko? 5. VCt nhập vào 4 số nguyên bất kì, in ra màn hình...
Đọc tiếp

1. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác vuông không?

2. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác đều không?

3. VCT nhập vào 1 số nguyên bất kì, kiểm tra xem số đó có chia hết cho 4 và 5 hay không?

4. VCT nhập vào 2 số nguyên bất kì, kiểm tra xem 2 số đó có chia hết cho nhau hay ko?

5. VCt nhập vào 4 số nguyên bất kì, in ra màn hình số lớn nhất trong 4 số?

6. VCt nhập vào 2 số nguyên khác nhau từ bàn phím, sắp xếp 2 số đó theo thứ tự giảm dần

7. VCT nhập vào 2 số nguyên khác nhau từ bàn phím, sắp xếp 2 số đó theo thứ tự tăng dần

8. VCT nhập vào 1 số nguyên bất kỳ, kiểm tra và thông báo ra màn hình số đó là số chẵn hay không?

0

uses crt;

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

i,n,kt,dem,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

if dem=0 then writeln('Khong co so nguyen to trong day')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

readln;

end. 

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t=t+x;

}

cout<<sqrt(t);

return 0;

}

19 tháng 6 2020
Program tinhtb; Uses crt; Var N, Dem: integer; X, TB: real; Begin Clrscr; Dem:=0; TB:=0; Writeln('Nhap cac so can tinh N = '); Readln(n); While Dem<0 do Begin dem:=Dem+1; Writeln('Nhap so Thu ',Dem,'='); Readln(X); tb:= TB+x; end; TB:= TB/n; Writeln ('TB cua ',N,' so la = ', TB:10:3); Readln, End.