Untitled

SUBMITTED BY: Guest

DATE: May 10, 2015, 4:45 p.m.

FORMAT: Text only

SIZE: 311 Bytes

Raw Download

HITS: 915

Report

Viết chương trình tính tổng các số chia hết cho 3 trong mảng
VAR x:LONGINT;
FUNCTION CHUSO(x:LONGINT):BYTE;
VAR i:BYTE;
BEGIN
WHILE x<>0 DO   
BEGIN
x:=x DIV 10;
inc(i);
END;
Chuso:=i;
END;
BEGIN
    Readln(x);
    Write(Chuso(x));
    readln;
END.