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.

program tong hai so;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap gia tri a);readln(a);

write('nhap so b'); readln(b);

c:=a+b;

writeln(tong cua hai so vua nhap la:',c);

readln;

end.

2 tháng 11 2019

cảm ơn bạn nhiều nhahaha

5 tháng 12 2017

nhap a,b gop lam 1 dc nhe

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a va b='); readln(a,b);

Tich:a*b;

Writeln('tich cua a va b la:', Tich:1:0);

Readln;

end.

5 tháng 12 2017

program Tich;

uses crt;

var a,b,Tich : integer;

begin

clrscr;

Write('Nhap a ='); readln(a);

Write('Nhap b='); readln(b);

Tich := a*b;

Writeln('Tich cua a va b la: ',Tich:8:20);

Readln;

end.

4 tháng 11 2018

Tên chương trình: có dấu cách, sửa: tinh_tong;

Khai báo biến sai cấu trúc, sửa : thay := thành :

Lệnh gán biến tong sai, sửa : tong:=a+b;

End thiếu chấm, sửa : end.

7 tháng 11 2018

- program: có dấu cách

sửa: program tinh_tong;

- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán

sửa: var a, b, tong : integer;

- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị

sửa: tong := a+b;

- kết thúc chương trình: end viết thiếu

sửa: end.

27 tháng 12 2020

Không đúng (biên dịch lỗi).

Ở dòng 3, lệnh Writel bị viết sai chính tả. Ở dòng 7 thực hiện khai báo biến cho 2 biến a b ở phía trong hàm chính (thay vì nằm phía trên).

27 tháng 12 2020

Chắc chắn là chương trình sẽ bị lỗi rồi

Bởi vì thứ nhất là bạn phải khai báo a,b trước khi bạn nhập

thứ hai là ở dòng 3 chữ writel bạn viết sai chính tả rồi

Program Bai1;

uses crt;

var x,y:integer;

begin

write('nhap vao gia tri cua x:');

readln(x);

write('nhap vao gia tri cua y:'); 

readln(y);

write('Tong cua hai so x va y la: ',x+y);

readln;

end.