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.

11 tháng 12 2021

uses crt;

var x:integer;

begin

clrscr;

readln(x);

writeln(x*x+x+1);

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 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

 

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;

}

25 tháng 12 2023

program CompareNumbers;

var
  x, y: real;

begin
  // Bước 1: Nhập 2 số thực x và y từ bàn phím
  write('Nhap so thuc x: ');
  readln(x);

  write('Nhap so thuc y: ');
  readln(y);

  // Bước 2: So sánh x và y, in ra số lớn hơn
  if x > y then
    writeln('x lon hon y')
  else if x < y then
    writeln('y lon hon x')
  else
    writeln('x bang y');

  readln;
end.


(khoog bt đúng ko)

19 tháng 12 2021

c: 

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

if nn>a[i] then nn:=a[i];

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.