#include <iostream>
using namespace std;
void countChars() {
char s[256];
cout << "Введите строку: ";
cin.getline(s, 256);
int count = 0;
for (unsigned int i = 0; i < strlen(s); i++)
count++;
cout << "Количество символов в строке: " << count << endl;
}
int main() {
setlocale(LC_ALL, "Russian");
countChars();
system("pause");
return 0;
}
//=================
// или так
//================
#include <iostream>
using namespace std;
int countChars(char* s) {
int count = 0;
for (unsigned int i = 0; i < strlen(s); i++)
count++;
return count;
}
int main() {
setlocale(LC_ALL, "Russian");
char s[256];
cout << "Введите строку: ";
cin.getline(s, 256);
cout << "Количество символов в строке: " << countChars(s) << endl;
system("pause");
return 0;
}
Несомненно, пользователь <span><span>Yuliagal </span>правильно сделала задание. Я оставлю свой ответ здесь, если вдруг кто-нибудь не понял, как это задание можно выполнить.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);<em>//Находим позицию символа л </em>
e := pos('е', st);<em>//Находим позицию символа е </em>
s := pos('с', st);<em>//Находим позицию символа с </em>
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); <em>//Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.</em>
if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); <span><em>//Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.</em>
</span><span>end.
Еще раз повторюсь, решение </span></span><span>Yuliagal верное, и самое короткое.</span>
В цикле происходит переприсваивание элементу массива B[i] значения элемента массива B[j], где i меняется от 1 до 20, а j вычисляется по формуле ЦелаяЧасть ( (i+5)/3 ) + 1.
Эта формула порождает значения 3, 3, 3, 4, 4, 4, ... 8, 8, 8, 9, 9
Будут получены шесть троек значений 3, 4, 5, ... 8 и одна пара значений 9.
При этом i пробежит 10 четных значений 2, 4, 6, ...20 и для i=4 будет получено j=4, т.е. этот элемент не изменит значения.
Следовательно, свои значения изменят <u>9</u> четных элементов.
Всё правильно кроме видит
Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
