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.
program ....(tên bạn đặt cho chương trình);
uses crt;
begin
clrscr;
writeln (' ten của bạn ');
writeln (' sdt của bạn ');
writeln (' email của bạn');
writeln (' địa chỉ ');
readln
end.
uses crt;
var st1,st2:string;
begin
clrscr;
readln(st1);
readln(st2);
writeln('Ten minh ',st1);
writeln('Lop ',st2);
readln;
end.
#TK
program thongtincanhan
uses crt;
begin
clrscr;
writeIn (' Ho va ten cua ban ');
writeIn (' Lop cua ban ');
writeIn (' Dia chi cua ban ');
readIn
end.
uses crt;
var ten,lop,diachi:string;
begin
clrscr;
write('Nhap ten:'); readln(ten);
write('Nhap lop:'); readln(lop);
write('Nhap dia chi:'); readln(diachi);
writeln('Ten la: ',ten);
writeln('Lop la: ',lop);
writeln('Dia chi la: ',diachi);
readln;
end.
Lời giải :
program hotrotinhoc l
var a : array[1..32000] of integer ;
N,i : integer ;
function NT(n:longint) : boolean ;
var i: longint ;
kt : boolean ;
begnin
kt:= true;
for i:= 2 to round(sqrt(n)) do
if n mod i=0 then kt:= false ;
NT:=kt ;
end;
begin
write('Nhap do dai cua mang'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
begin
if (a[i]>2) and NT(a[i]) then write('trong mang co so nguyen to') else write('trong mang khong co so nguyen to');
if (a[i]>2) and NT(a[i]) then write('Cac so nguyen to trong mang la:',A[i]:5);
end;
readln
end.
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
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.
Var a,b,ta,tb,r,ucln:integer;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
ta:=a;
tb:=b;
While tb <> 0 do
Begin
r:=ta mod tb;
ta:=tb;
tb:=r;
End;
ucln:=ta;
Write('UCLN(',a,'; ',b,') = ',ucln);
Readln
End.
Dễ thôi:
program I_challenge_all;
uses crt;
begin
writeln('Ho va ten');
writeln('So dien thoai');
writeln('Email & Dia chi');
readln
end.
Please upvote for me!