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.

17 tháng 4 2018

program tinhp;

uses crt;

var x,n,i: integer;

s: real;

begin

write('Nhap n:');

readln(n);

write('Nhap x:');

readln(x);

s: sqrt(x);

for i:=1 to do s:= sqrt (x+s);

write('tong s=',s:6:2);

readln;

end.

Câu 1;  Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascala)     \(\dfrac{15}{2+3}\)-\(\dfrac{8}{x^3}\)+yb)       \(\dfrac{\left(10+x\right)^2}{3+y}\)-\(\dfrac{18}{5+y}\)Câu 3. Bạn Tuấn viết chương trình như sau:1.  program  Tinh toan2.   uses crt;3.    var4.    x, y : integer;5.    tb = real;6.    thongbao :...
Đọc tiếp

Câu 1;  Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.

Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal

a)     \(\dfrac{15}{2+3}\)-\(\dfrac{8}{x^3}\)+y

b)       \(\dfrac{\left(10+x\right)^2}{3+y}\)-\(\dfrac{18}{5+y}\)

Câu 3. Bạn Tuấn viết chương trình như sau:

1.  program  Tinh toan

2.   uses crt;

3.    var

4.    x, y : integer;

5.    tb = real;

6.    thongbao : integer;

7.    const  a := 2;

8.   begin

9.   clrscr;

10.   thongbao := ‘Trung binh cong cua hai so x va y la: ‘;

11.   write(‘Nhap gai tri cho x = ‘); readln(x);

12.  write(‘Nhap gia tri cho y = ‘); readln(y);

13.      tb = (x+y)/a;

14.   writeln(thongbao, tb:2:1);

15.    readln;

16.         end.

a.  )      Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng 

b.    )   Hãy phân biệt tên biến, tên hằng trong chương trình trên 

Câu 4 : Viết chương trình đưa thông báo sau ra màn hình, mỗi thông báo trên một dòng: 

GIÚP MIK VỚI !!!!!!!!!!!!!!!!

 

1
15 tháng 11 2021

1:

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

Câu 1;  Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal a. \(\dfrac{15}{2+3}\) - \(\dfrac{8}{x^3}\) +y                     b.  \(\dfrac{\left(10+x\right)^2}{3+y}\)- \(\dfrac{18}{5+y}\)Câu 3. Bạn Tuấn viết chương trình như sau:1.   program  Tinh toan2  uses crt;3.    var4.  x, y : integer;5. tb =...
Đọc tiếp

Câu 1;  Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.

Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal 

a. \(\dfrac{15}{2+3}\) - \(\dfrac{8}{x^3}\) +y                     b.  \(\dfrac{\left(10+x\right)^2}{3+y}\)\(\dfrac{18}{5+y}\)

Câu 3. Bạn Tuấn viết chương trình như sau:

1.   program  Tinh toan

2  uses crt;

3.    var

4.  x, y : integer;

5. tb = real;

6.  thongbao : integer;

7. const  a := 2;

8.  begin

9.  clrscr;

10.  thongbao := ‘Trung binh cong cua hai so x va y la: ‘;

11. write(‘Nhap gai tri cho x = ‘); readln(x);

12.  write(‘Nhap gia tri cho y = ‘); readln(y);

13.  tb = (x+y)/a;

14.writeln(thongbao, tb:2:1);

15.   readln;

16.  end.

a)  Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng 

b.  ) Hãy phân biệt tên biến, tên hằng trong chương trình trên 

HELD ME !!!!!!!!!!

 

1
28 tháng 11 2021

Giups mình nhanh vs

 

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

1 tháng 5 2023

Câu 1:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 2 to n do

     begin

          if i mod 2 = 0 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);

     readln; 

end.

Câu 2:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 1 to n do

     begin

          if i mod 2 = 1 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);

     readln;

end.

2 tháng 5 2023

Sao tới 3 end vậy

21 tháng 10 2021

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<a*b*c;

return 0;

}

9 tháng 3 2022

nhờ bày cho bày ni hộ cái

Câu 1: 

uses crt;

var n,i:integer;

s:real;

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 t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.