Bài 4: Lưu với tên Bai4_a.pas
a/ Hãy viết chương trình và in ra màn hình nội dung sau:
DON XIN PHEP NGHI HOC
Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham
Toi ten la:
Phu huynh cua em:
Hoc sinh lop:
Li do nghi hoc:
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.
Những câu hỏi liên quan
2 tháng 10 2021
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.
13 tháng 11 2021
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
N
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.
3 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length()
for (i=0; i<=d-1; i++)
if (('a'<=st[i]) and (st[i]<='z')) st[i]=st[i]+32;
for (i=0; i<=d-1; i++)
cout<<st[i];
return 0;
}
31 tháng 3 2023
Câu 1:
ho_ten = input("Nhập họ tên: ")
tach_ho_ten = ho_ten.split()
if len(tach_ho_ten) > 1:
ten = tach_ho_ten[-1]
print("Tên của bạn là:", ten)
else:
print("Nhập sai định dạng họ tên")
Câu 2:
s = input("Nhập xâu: ")
hoa = s.upper()
print(hoa)
20 tháng 10 2021
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.
TK
1
5 tháng 4 2021
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.
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.