program baitap;

uses crt;

var thanhtien:real;

begin

clrscr;

write (' So tien khach da mua la: '); readln (thanhtien);

if thanhtien>=100000 then thanhtien := (70*thanhtien/100)

else thanh tien := (90*thanhtien/100);

writeln (' So tien khach phai tra la: ',thanhtien:4:2);

readln;

end.

Nếu bn trả lời câu hỏi dạng mới thì các bn ấy vẫn trả lời được mà

Có

thầy thọ hum trc chỉnh rồi thì fai

đúng rồi đó Nguyễn Thị Phương Linh
 

program XinChao;
uses crt;
(* Day la chuong trinh chinh *)
Begin
 writeln('Xin chao cac ban!');
 readkey;
End.

Trương Lan Anh phần cuối là readln nhé

program chia_n;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

Write('Hay nhap so n ');readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

nhớ tick cho mik nha!

Program HOC24;

var i: byte;

a: array[1..10] of real;

begin

for i:=1 to 10 do begin write('Nhap diem cua ban thu ',i,': '); readln(a[i]); end;

readln

end.

Việc học phần Tiếng Việt và Tập làm văn theo hướng tích hợp trong Chương trình ngữ văn 7, giúp học sinh có thể vận dụng nhuần nhuyễn các kĩ năng để học văn tốt hơn.

Ví dụ khi dạy bài Cuộc chia tay của những con búp bê (ngữ văn 7 tập 1) giáo viên tích hợp kiến thức của phân môn tiếng Việt, giáo viên có thể đặt câu hỏi:

Em hãy tìm những từ láy diễn tả tâm trạng của Thủy khi nghe yêu cầu chia đồ chơi của mẹ.

- Những từ láy đó có tác dụng gì trong việc biểu đạt dụng ý nghệ thuật của tác giả

Tích hợp với phần Tập làm văn, giáo viên có thể đặt câu hỏi:

- Văn bản được kể theo ngôi thứ mấy, tác dụng của ngôi kể đó.