Question

Viết chương trình nhập một xâu bất kì , rồi đếm xem xâu đó có bao nhiêu số 8 liên tiếp.nếu không có in ra 0.

Vd

Inp 44487878

Outp 0

Vd2

Inp 5488888888

Outp 8

 

Answer 1

program Xau219;
uses crt;
Var S:String;
    dem, max, i:Byte
begin
  clrscr;
  Write ('Nhap xau:'); Readln (S);
  max:=0; dem:=0; S:=S+''
  For i:=1 to Length (S) do
  begin
     If S[i] ='8' then dem:=dem+1
     else
       If max<them then
          begin max:=dem; dem:=0; end;
  end;
  Writeln('Ket qua:'max);
  readln;
end.

Answer 2

Viết chương trình nhập 4 số và tính:

-Tổng 4 số

-Số lớn nhất

-Số bé nhất

-Số chia hết cho 2

-Số không chia hết cho 3

-So sánh số đầu và số cuối.