PROGRAM PRG5_11;

VAR I, К: INTEGER;

S1: STRING;

BEGIN

WRITELN('BBEДИTE ТЕКСТ ДО ТОЧКИ');

READLN(S1);

К:= 0;l:= 1;

REPEAT

CASES1[I]OF

'0'..'9': К:= K+(ORD(S1[I])-ORD('0'));

' ':;

ELSE К:= -1;

END;

I:= 1+1

UNTIL (S1[l] ='.')OR(K<0);

IF К MOD 3 = 0 THEN

WRITELN('ЭTO ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3')

ELSE

WRITELN('ЭTO HE ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим строку S1;

- организуем в строке поиск цифр до тех пор, пока не встре­тим точку или не обнаружим наличие ошибки в арифмети­ческом выражении;

- в зависимости от значения суммы цифр выводим результат на экран.

Переменные:

I - переменная цикла;

К - счетчик цифр;

S1 - строка цифр.

 

ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ

8976500066652005.

ЭТО ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3

 

ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ

DF)E (ABBA () (DFGSA)BBA B)B(BB.

ЭТО НЕ ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3

Рис. 5.5. Результат работы PRG5_11

Задача 5.12 Дана строка символов до точки. Вывести ее на экран задом наперед.

PROGRAM PRG5_12;

VAR I, L: INTEGER;

S1: STRING;

BEGIN

WRITELN('BBEДИTE ТЕКСТ ДО ТОЧКИ');

READLN(S1);

L:= LENGTH(S1);

FOR I:= L-1 DOWNTO 1 DO

WRITE(S1[I]);

WRITELN('.')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим строку S1 и определяем ее длину;

- организуем цикл по выводу строки задом наперед.

Переменные:

I - переменная цикла;

L - длина строки;

S1 - строка текста.

 

ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ

ААААААА.

ААААААА 0987654321.