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
ML
9 tháng 4 2023
Program HOC24;
var i,d1,d2: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
d1:=0; d2:=0;
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then d1:=d1+1;
if s[i] in ['A'..'z'] then d2:=d2+1;
end;
writeln('So ky tu so: ',d1);
write('So ky tu chu cai: ',d2);
readln
end.
ND
0
NM
1
19 tháng 11 2017
Program hinhthang;
uses crt;
var a, b, c, d, P, S, h:real;
BEGIN
write ( 'nhap do dai day be a, day lon b, 2 canh ben c, d va chieu cao h: ');
readln(a, b, c, d, h);
P:=a+b+c+d;
S:=((a+b)*h)/2;
writeln ( ' chu vi = ',P:8:3, 'dien tich = ',S:8:3);
readln
END.
uses crt;
var a, b, c, d, P, S, h:real;
BEGIN
write ( 'nhap do dai day be a, day lon b, 2 canh ben c, d va chieu cao h: ');
readln(a, b, c, d, h);
P:=a+b+c+d;
S:=((a+b)*h)/2;
writeln ( ' chu vi = ',P:8:3, 'dien tich = ',S:8:3);
readln
END.
ND
3
mình đang cần gấp
25 tháng 9 2016
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
NT
0