-
Cho dãy n số nguyên dương a1, a2, …, an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj ...
-
Cho trước số nguyên dương n. Viết chương trình kiểm tra xem có bao nhiêu số nguyên dương nhỏ hơn hoặc bằng n nguyên tố cùng nhau với n (nghĩ...
-
Tìm X biết: 10 + 11 + 12 + 13 + ... + X = 5106 ------ Hướng dẫn giải: Hãy cố gắng nhớ lại công thức tính tổng dãy tăng có quy luật (số đ...
-
Xét xâu S chỉ bao gồm các kí tự ngoặc mở ‘(‘ và ngoặc đóng ‘)’. Xâu S xác định một cách đặt ngoặc đúng, nếu thỏa mãn các điều kiện: · Tổng ...
-
Phân tích số nguyên dương thành tổng các số hạng của dãy Fibonaci sao cho ít số hạng nhất (các số hạng không được trùng nhau). Xem clip hư...
-
Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau. Input · Dòng 1: số test t · t dòng sau: mỗi dòng 1 xâu ...
-
Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. T...
-
Cho trước số nguyên dương n <10. Hãy in ra tất cả các hoán vị có n phần tử liên tục kể từ số 1. Ví dụ: n=3 ta có 6 hoán vị: 123, 132, 213...
-
Trong xã hội ngày nay, thông tin đã trở thành một dạng tài nguyên - tài nguyên thông tin. Tài nguyên thông tin cũng như tài nguyên vật chất...
-
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19 Input Output ...
program o;
Trả lờiXóauses crt;
function laso(s:string):boolean;
var a,b:integer;
begin
val(s,a,b);
if b=1 then
begin
delete(s,1,1);
val(s,a,b);
end;
exit(b=0);
end;
function so(s:string):real;
var b:longint; a:real;
begin
val(s,a,b);
if b=1 then
begin
delete(s,1,1);
val(s,a,b);
a:=1/a
end;
exit(a);
end;
function daun(s:string):string;
begin
exit(copy(s,1,pos('x',s)-1));
end;
function cuoin(s:string):string;
begin
exit(copy(s,pos('x',s)+1,length(s)-pos('x',s)));
end;
function dau(s:string):string;
begin
exit(copy(s,1,pos('+',s)-1));
end;
function cuoi(s:string):string;
begin
exit(copy(s,pos('+',s)+1,length(s)-pos('+',s)));
end;
function cong(s:string):boolean;
begin
exit(pos('+',s)>0);
end;
function daut(s:string):string;
begin
while pos('-',s)>0 do
s[pos('-',s)]:='@';
while pos('@',s)>0 do
begin
insert('-',s,pos('@',s)+1);
s[pos('@',s)]:='+';
end;
exit(s);
end;
function dauch(s:string):string;
begin
while pos(':',s)>0 do
s[pos(':',s)]:='@';
while pos('@',s)>0 do
begin
insert(':',s,pos('@',s)+1);
s[pos('@',s)]:='x';
end;
exit(s);
end;
function tinh(s:string):real;
begin
if laso(s) then tinh:=so(s) else
if cong(s) then tinh:=tinh(dau(s))+tinh(cuoi(s)) else
tinh:=tinh(daun(s))*tinh(cuoin(s));
end;
begin
clrscr;
write (tinh(dauch(daut('1+2+3x3:9'))):0:2);
readln;
end.