Tin học Pascal

ka1412

ka1412

Học sinh chăm học
Thành viên
24 Tháng mười một 2017
874
730
121
Hà Nội
CNN | Life
Của bạn đây:
Mã: 
uses crt;
var a,b:word;
begin
    clrscr;
    write('Nhap a:');readln(a);
    write('Nhap b:');readln(b);
    a := a+b;
    b := a-b;
    a := a-b;
    writeln('A sau khi doi cho:',a);
    write('B sau khi doi cho:',b);
    readln
end.
P/s: Hình như dùng với số nguyên âm cũng được
 
  • Like
Reactions: besttoanvatlyzxz
T

Trần Nguyễn Như Hạ

Học sinh mới
Thành viên
8 Tháng tư 2018
41
16
6
21
Nghệ An
Trung học phổ Thông Lê lợi
Min
ka1412 said:
Của bạn đây:
Mã: 
uses crt;
var a,b:word;
begin
    clrscr;
    write('Nhap a:');readln(a);
    write('Nhap b:');readln(b);
    a := a+b;
    b := a-b;
    a := a-b;
    writeln('A sau khi doi cho:',a);
    write('B sau khi doi cho:',b);
    readln
end.
P/s: Hình như dùng với số nguyên âm cũng được[/QUOTE
Mình nói là viết thuật toán chứ ko phải paccal
Bấm để xem đầy đủ nội dung ...
 
You must log in or register to reply here.
Top Bottom