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

Câu 2:

-Giống: Đều có tác dụng đọc dữ liệu

-Khác:

+Read: Đọc xong không xuống dòng

+Readln: Đọc xong rồi xuống dòng

Câu 3:

a) a*x*x*x+b*x*x*x+c*x+d

b) (4*sqr(x)-7*x-5)/(x-7)

c) (a+b)/(a-b)-(a-b)/(a+b)

Câu 4:

a) Integer;

b) Real;

c) Real;

17 tháng 12 2019

Câu 1 bạn xem lại đề

không có quy tắc viết từ khóa trong pascal nhé bạn

11 tháng 11 2021

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

18 tháng 10 2021

Bài 1:

-Kiểu dữ liệu phù hợp là kiểu số thực (real)

Bài 2:

a) a*x*x*x+b*x*x+c*x+d

b) 1/(1+x)*(1+x)-2/(x*x+1)

Bài 3: (Lười quá, nhường bạn khác nhé :D)

 

 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

7 tháng 11 2021

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.

Câu 1: 

a) var a:array[1..50]of real;

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

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

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

27 tháng 3 2023

⇒ Đáp án:      A. Cùng kiểu với giá trị đầu và giá trị cuối

29 tháng 3 2023

A. Cùng kiểu với giá trị đầu và giá trị cuối 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Câu 1: 

readln hoặc read được dùng để đọc dữ liệu

Câu 2: Kiểu dữ liệu byte

Câu 3: 

Có nghĩa khai báo a kiểu thực, còn b là kiểu kí tự