Hỏi đáp Lớp 8

var a, b, S, P, C, D:byte;

begin​

write('moi nhap a,b');

read(a b);​

​S:= a+b;

​P:= a-b;

C:= a*b;​

​D:= a/b;

writeln('S:=,P:=, C:=, D:=',);​

readln

End.​

​

bạn xem nhé

program Bai_tap;

uses crt;

var a,b,Tống,Hỉểu,Tích,Thương:real;

Begin

write('Cac so cho cho truoc lan luot la',a,b);

readln(a,b);

writeln('Tong cua 2 so bang ',Tong:=a+b);

writeln('hieu cua 2 so bang ',Hieu:=a-b);

writeln('tích của 2 số bằng ',Tích:=a.b);

writeln('thuong cua 2 so bang ',Thuong:=a/b);

readln;

end.

bạn tham khảo chương trình mẫu này nhé:

Program Cong_Tru_Nhan_Chia

uses crt;

Var a, b, Cong, Tru, Nhan, Chia: real;

Begin

Write('Nhap số thứ nhất: '); readln(a);

Write('Nhap số thứ hai: '); readln(b);

Cong:=a+b;

Tru:=a-b;

Nhan:=a*b;

Chia:=a/b;

Writeln('Phep cong là: ', Cong);

Writeln('Phep tru là: ', Tru);

Writeln('Phep nhan là: ', Nhan);

Writeln('Phep chia là: ', Chia);

readln

end.

thay đổi ở trên phần khai báo biến 

dùng vả hoặc gán biến trong chương trình như là a:=S*i

có rất nhiều cách để thay đổi biến:

+thay đổi tên biến bằng cách sửa phần khai báo biến(Var) CHO biến mà ta thích

+hoặc thay đổi giá trị biến,khi khai báo biến xong thì biến đó có giá trị bằng 1 nên ta có thể thay thế giá trị biến bằng lệnh gán,lệnh for..to..do,while..do,if...then,..

Program DOI_GIO_PHUT_GIAY;

Uses crt;

Var gio, phut, giay, n: longint;

Begin

Clrscr;

Writeln('DOI SANG GIO PHUT GIAY');

Writeln('--------------------------------------');

Write('Nhap vao so giay: '); readln(n);

gio:= n div 3600;

n:=n mod 3600;

phut:=n div 60;

n:=n mod 60;

Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', n, 'giay');

Chào bạn, bạn tham khảo chương trình mẫu này nhé:

Program DOI_GIO_PHUT_GIAY;

Uses crt;

Var gio, phut, giay, n: longint;

Begin

Clrscr;

Writeln('DOI SANG GIO PHUT GIAY');

Writeln('--------------------------------------');

Write('Nhap vao so giay: '); readln(n);

gio:= n div 3600;

n:=n mod 3600;

phut:=n div 60;

n:=n mod 60;

Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', n, 'giay');

Readln;

End.

mình cũng đang bí bài này  

cảm ơn #ThanhHằng nhiều nhoa  bài làm của bạn rất hay 

bn ơi hình nhwcais này ko pải lớp 8 mà là đại học gồi đó

C1:write('nhap ho ten: '); readln(hoten);write('nhap nam sinh: '); readln(namsinh);

uses crt;

var a:inetger;

begin

clrscr;

write('Nhap so nguyen a:');

readln(a);

if a mod 2=0 then 

write(a ,'la so chan')

else write(a ,'la so le');

readln

end.

cái này mình tìm hiểu trên mạng nha bạn

Từ khóa là từ trong một câu, một đoạn, một văn bản, mang một ý nghĩa quan trọng hoặc có mục đích nhấn mạnh theo ý của người viết. Từ khóa (Keyword) được sử dụng rộng rãi như là một thuật ngữ internet chỉ việc xác định những từ ngữ chính thể hiện sản phẩm, dịch vụ, thông tin mà chủ website hướng đến cũng như người dùng internet hay dùng để tìm kiếm thông tin liên quan.