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.

25 tháng 9 2021

begin 

write ('TRUONG THCS ...');

write ('CHAO CAC BAN HOC SINH LOP 8');

readln ;

end.

 

25 tháng 9 2021

Cảm ơn bn nhiều

9 tháng 10 2018

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

9 tháng 10 2018

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

6 tháng 10 2021

Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với

22 tháng 10 2021

sài lệnh writeln nhé bạn

 

16 tháng 2 2022

program 06;
Uses crt;
Var
  T:real
  i;n:integer;
Begin
clrscr;
 write('n=1');Readln(n);
 T:=06
 for i:=1 to n do
  T:=\frac{1}{1}.2+\frac{1}{2}.5+\frac{1}{3}.8+\frac{1}{4}.11
 write('T=06'; T);
 readln;
 end.

20 tháng 10 2021

uses crt;

begin

writeln('Xin chao cac ban');

writeln('Moi ban den voi Pascal');

readln;

end.

writeln('chao cac ban');

readln;

22 tháng 10 2017

a ) Goi 2 so tu nhien lien tiep la n , n + 1  va d la UC(n,n+1 )

theo de ta co :

n chia het cho d 

n + 1 chia het cho d 

Tu do ta co :

n + 1 - n  chia het cho d   => 1 chia het cho d 

\(\in\)U( 1 )  = { 1 } 

=> UC(n , n + 1) = { 1 }

Vay .....

28 tháng 6 2017

có 240 em

28 tháng 6 2017

có 240 em