var
s1, s2: string;
i, n1, n2: integer;
begin
writeln('введите первое слово');
readln(s1);
writeln('введите второе слово');
readln(s2);
writeln('объединение слов: ', s1 + s2);
writeln('длина первого слова: ', length(s1));
writeln('длина второго слова: ', length(s2));
for i: = 1 to length(s1) do
if s1[i] = 'а' then inc(n1);
for i: = 1 to length(s2) do
if s2[i] = 'a' then inc(n2);
writeln('в первом слове ', n1, ' букв "а" ');
writeln('во втором слове ', n2, ' букв "а" ');
writeln('первые 5 букв первого слова: ', copy(s1, 1, 5));
writeln('первые 5 букв второго слова: ', copy(s2, 1, 5));
delete(s1, length(s1) - 4, 5);
delete(s2, length(s2) - 4, 5);
writeln('результат удаления последних 5 букв первого слова: ', s1);
writeln('результат удаления последних 5 букв второго слова: ', s2);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Создать таблицу истинности _ avb& c& d
var
a, n, s, i: integer; //n - количество, s - сумма, a - вводимое число
begin
a: = 1;
while a mod 5 < > 0 do
begin
writeln('введите целое число');
readln(a);
if a > 10 then
begin
inc(n); //увеличиваем счетчик на 1
s: = s + a;
end;
end;
writeln('количество чисел, больших 10: ', n, ', сумма чисел, больших 10: ', s);
write('делители числа ', a, ': ');
for i: = 2 to a do
if a mod i = 0 then write(i, ' ');
end.