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.

uses crt;

begin

clrscr;

writeln('DON XIN PHEP NGHI HOC');

writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');

writeln('Toi ten la:');

writeln('Phu huynh cua em:');

writeln('Hoc sinh lop:');

writeln('Li do nghi hoc:');

readln;

end.

uses crt;

begin

clrscr;

writeln('DON XIN PHEP NGHI HOC');

writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');

writeln('Toi ten la:');

writeln('Phu huynh cua em:');

writeln('Hoc sinh lop:');

writeln('Li do nghi hoc:');

readln;

end.

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

13 tháng 11 2021

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a+b:4:1);

readln;

end.

23 tháng 5 2022

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

 

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

uses crt;

var ten:array[1..50]of string;

diem:array[1..50]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do 

  begin

       write('Ten cua hoc sinh thu ',i,' la: '); readln(ten[i]);

write('Diem cua hoc sinh thu ',i,' la: '); readln(diem[i]);

end;

max:=0;

for i:=1 to n do 

  if max<diem[i] then max:=diem[i];

writeln('Diem cao nhat la: ',max);

for i:=1 to n do 

  if diem[i]=max then writeln(ten[i]);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n; 

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++)

if (i%3==0) t+=i;

cout<<t<<endl;

for (i=1; i<=n; i++)

if (a[i]<0) cout<<a[i]<<" ";

return 0;

}

uses crt;

var a:array[1..100]of string;

i,n:integer;

begin

clrscr;

write('nhap so lop='); readln(n);

for i:=1 to n do 

  begin

write('Nhap ten lop thu ',i,'='); readln(a[i]);

end;

writeln('Danh sach cac lop 9 la: '); 

for i:=1 to n do 

writeln(a[i]);

readln;

end.

8 tháng 10 2021

giúp mình với mn ơi