Question

giải tin 8 hộ mình với =)))) huhu giúp minh` với !
Câu 1 : Nhập vào một chuỗi kí tự và kiểm tra xem chuỗi có bao nhieu nguyên âm và bao nhiêu số ?
Câu 2 : Nhập số n bất kì. Đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. Sau đó đưa ra màn hình '' So cac so > 10 ra < 20 la : " và " Tong cua chung la ".
Câu 3 : Nhập vào ngày tháng năm từ bàn phím rồi sau đó viết ra màn hình là ngày thứ mấy trong tuần ?

Answer 1

1:

uses crt;
var st:string;
dem,i,d:integer;
begin
clrscr;
write('st='); readln(st);
d:=length(st);dem:=0;
for i:=1 to d do
if st[i] in['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.

2:

uses crt;
var n,dem,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------xu-ly----------------------------}
dem:=0;
t:=0;
for i:=1 to n do
if (a[i]>10) and (a[i]<20) then
begin
inc(dem);
t:=t+a[i];
end;
writeln('so cac so lon hon 10 va nho hon 20 la: ',dem);
writeln('tong cua chung la: ',t);
readln;
end.

Answer 2

1:

uses crt;
var st:string;
dem,i,d:integer;
begin
clrscr;
write('st='); readln(st);
d:=length(st);dem:=0;
for i:=1 to d do
if st[i] in['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.

2:

uses crt;
var n,dem,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------xu-ly----------------------------}
dem:=0;
t:=0;
for i:=1 to n do
if (a[i]>10) and (a[i]<20) then
begin
inc(dem);
t:=t+a[i];
end;
writeln('so cac so lon hon 10 va nho hon 20 la: ',dem);
writeln('tong cua chung la: ',t);
readln;
end.