Программа: Количество одинаковых букв в слове

Задача: Определить сколько раз во введенном слове повторяется определенная буква (вводится с клавиатуры)

PROGRAM abcde;

USES crt;

VAR str,w,z: string;

str1,i,str2:integer;

str4:boolean;

BEGIN

WriteLn('Введите слово: ');

ReadLn(str);

WriteLn('Введите букву: ');

ReadLn(z);

str2:=0;

str4 := false;

for i:=1 to length(str) do

if str[i] = z

then

begin

str2:=str2+1;

str4:= true;

end;

if str4 = true

then WriteLn('Букв ',z,' в слове ',str,' - ',str2)

else WriteLn('Буквы ',z,' в слове нет!');

END.

Программа: Определение длины слова

Задача: Определить сколько символов содержится в веденном слове?

PROGRAM abcde;

USES crt;

VAR str: string;

BEGIN

WriteLn('Введите слово: ');

ReadLn(str);

WriteLn('Длина строки: ', length(str));

END.

Программа: Кратна ли сумма цифр, трем?

Задача: Определить кратна ли сумма цифр двузначного числа трем?

PROGRAM kratno_li_trem;

var a,b,c,sum :integer;

BEGIN

Write ('Введите двузначное число:');

ReadLn (a);

b:=a div 10;

c:=a mod 10;

sum:=b + c;

IF sum mod 3=0

THEN WriteLn('Сумма цифр кратна трем')

ELSE WriteLn('Сумма цифр НЕ кратна трем');

END.

Просмотрело: 2260

Программа: Изменение трехзначного числа

Задача: Преобразовать трехначное число, две последние цифры трехзначного числа n (вводится с клавиатуры) умножить на 10 и прибавить первую цифру числа n.

PROGRAM trex_chislo;

var z,n :integer;

var y,w,q,x :real;

BEGIN

Write ('Введите трехзначное число: ');

Read (n);

y:=n div 100; {определяем первую цифру y=первая цифра}

z:=n mod 100; {определяем вторую и третью цифру z=первая, вторая цифра}

x:=(z * 10) + y;

WriteLn ('Ответ:', x);

END.