Форум программистов, компьютерный форум, киберфорум
Наши страницы

Программа должна определить длину введенной строки L и, если длина L >15, то удаляются все a..z. - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Если прямые попарно пересекаются и образуют треугольник, тогда найти его площадь. http://www.cyberforum.ru/cpp-beginners/thread310806.html
19.Три прямые на плоскости заданы уравнением akx+bky=ck (k=1,2,3). Если эти прямые попарно пересекаются и образуют треугольник, тогда найти его площадь.
C++ Получить все числа Армстронга, состоящие из двух, трех и четырех цифр 15.Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу (как, например, 153=13+53+33 ). Получить все числа Армстронга, состоящие... http://www.cyberforum.ru/cpp-beginners/thread310805.html
Требуется вычеркнуть минимально возможное количество чисел так, чтобы оставшиеся числа шли в порядке возрастания C++
27. Дана последовательность из N целых чисел, среди которых нет двух одинаковых. Требуется вычеркнуть минимально возможное количество чисел так, чтобы оставшиеся числа шли в порядке возрастания.
C++ Найти наибольший общий делитель n и m (наименьшее общее кратное n и m) используя алгоритм Евклида.
10.Даны натуральные числа n,m. Найти наибольший общий делитель n и m (наименьшее общее кратное n и m) используя алгоритм Евклида. Пусть n и m – одновременно не равные нулю целые неотрицательные...
C++ Найдите ошибку пожалуйста... http://www.cyberforum.ru/cpp-beginners/thread310784.html
Программа считает сумму ряда с точность 0.001, формула n!/3*n^n Вроде все правильно, программа запускается но сразу вылетает с ошибкой "debug error" #include "stdafx.h" #include<iostream>...
C++ В данной строке символов посчитать количество вхождений данной буквы Указатели и строки. 1) В данной строке символов посчитать кол-во данной буквы 2) Дана последовательность слов, найти кол-во слов в данном предложении Буду благодарен. подробнее

Показать сообщение отдельно
annesse)
0 / 0 / 0
Регистрация: 14.06.2012
Сообщений: 10
14.06.2012, 18:43
program Program6_1;
Uses crt;
Var S:string[100]; a,b,n:integer;
Begin
clrscr;
Writeln('введите строку');
Readln(S);
b:=Length(S);
If b>15 then
For a:=15 to 122 do begin
repeat
N:=pos(chr(a),s);
if n<>0 then delete(s,n,1);
until n=0; end;
Writeln('длинна строки',b);
if b>15 then
Writeln('строка без букв a...z');
Write(S);
readln;
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.