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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
NN
0
CL
0
10 tháng 2 2022
Tham khảo:
program oken;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap 1 so bat ky: '); readln(n);
writeln('BANG CUU CHUONG ',n);
for i:=1 to 9 do
writeln(n,' * ',i,' = ',n*i);
readln;
end.
25 tháng 6 2021
uses crt;
var st,s1,s2:string;
i,max,x,y,d1,d2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
s1:=#32;
for i:=1 to length(st) do
if st[i] in ['a'..'z'] then s1:=s1+st[i];
d1:=length(s1);
for i:=1 to d1 do
s1[i]:=upcase(s1[i]);
writeln('Xau ky tu da chuyen sang hoa la: ',s1);
s2:=#32;
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then s2:=s2+st[i];
write('Day so dao nguoc la: ');
d2:=length(s2);
for i:=d2 downto 1 do
write(s2[i]);
writeln;
max:=0;
for i:=1 to d2 do
begin
val(s2[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
22 tháng 11 2021
Tham khảo!
CHƯƠNG TRÌNH TÍNH CHU VI VÀ DIỆN TÍCH HÌNH TRÒN
Program CHUVI_Hinh_Tron_Program;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Writeln(‘TINH DIEN TICH & CHU VI HINH TRON:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2); Writeln(‘Chu vi hinh tron la:’,cv:6:2);
Readln;
End.
NB
1 tháng 5 2023
vòng lặp với số lần chưa biết trước được thực hiện bằng cấu trúc vòng lặp while:
while (condition) do //condition là điều kiện nhá :v
begin
end;
nếu điều kiện đúng thì câu lệnh trong vòng lặp đc thực hiện, sai thì kết thúc.
VD:
var
x: Integer;
begin
x := 0;
while x < 5 do
begin
writeln(x);
x := x + 1;
end;
end.
//in ra đc từ 0 đến 4
program taxi;
var i,n:integer;
s:array[1..100] of integer;
t:longint;
f,g:text;
begin
assign(f,'BAI3.INP');reset(f);
readln(f,n);
for i:=1 to n do
read(f,s[i]);
close(f);
assign(g,'BAI3.OUT');rewrite(g);
for i:=1 to n do
t:=t+s[i];
if t mod 4=0 then writeln(g,(t div 4));
if t mod 4<>0 then writeln(g,((t div 4)+1));
close(g);
end.