Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trần Minh Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 15:12

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Nguyễn Quốc Bình An
7 tháng 11 2021 lúc 15:55

a

 

Kim Thái
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 23:27

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Phông
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2020 lúc 21:08

a) var a:real;

b:string;

a:=20.5;

readln(b);

b) var x:string;

y:integer;

x:='Ha Noi'

readln(y);

Trương Minh Hiếu
Xem chi tiết
Keiko Hashitou
23 tháng 3 2022 lúc 8:30

1 là bn sửa hình nền

2 là mk gọi admin hoặc giáo viên khác khoá nick bn

Lê Ân
Xem chi tiết
Yến Chi Phan Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:55

uses crt;

const fi='dulieu.dat'

var f1:text;

a,b,p,s:array[1..100]of real;

i,n:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while not eof(f1) do 

begin

n:=n+1;

readln(a[n],b[n]);

end;

for i:=1 to n do 

  begin

p[i]:=(a[i]+b[i])/2;

s[i]:=a[i]*b[i];

end;

for i:=1 to n do 

  writeln(p[i]:4:2,' ',s[i]:4:2);

close(f1);

readln;

end.

Kim Thái
Xem chi tiết
Duydash
7 tháng 11 2021 lúc 20:06

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.

Nguyễn Ái Quyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 10 2021 lúc 23:56

uses crt;

begin

writeln('Xin chao cac ban');

writeln('Moi ban den voi Pascal');

readln;

end.

Tiên 8a3
Xem chi tiết