Mn giúp mình với
1.Viết chương trình nhập vào 1 một số N nguyên dương. Hãy in ra màn hình các số lẻ từ 0 đến N?
2.Viết chương trình nhập vào từ bàn phím một xâu S có độ dài tối đa là 25.Hãy đếm xem trong xâu đó có bao nhiêu kí tự là chữ số “0” và in kết quả ra màn hình?
1. program TIn_hoc;
uses crt;
var i,n:integer;
begin
clrscr;
writeln(‘Nhap n:’);readln(n);
writeln(‘Cac so le tu 0 den ‘,n,’ la:’);
for i:= 0 to n do if i mod 2 = 1 then write(i,’ ‘);
readln;
end.
2.
program Tin_hoc;
uses crt;
var i,n:integer;
s:string;
begin
clrscr;
writeln(‘Nhap xau S co do dai toi da la 25:’);readln(s);
while length(s) >25 do
begin writeln(‘Nhap lai:’);
readln(s) end;
n:=0;
for i := 1 to length(s) do if s[i] = ‘0’ then inc(n);
writeln(‘Xau S co ‘,n,’ chu so 0:’);
readln;
end.