С клавиатуры вводят слово и символ. Составьте программу, которая: а) проверяет, есть ли в этом слове данный символ; б) определяет позицию заданного симв
10-11 класс
|
ола; в) подсчитывает колличество вхождений заданного символа.
var
slovo,simval:string;
i,k:integer;
begin
k:=0;
write('vvedite slovo ');
readln(slovo);
write('vvedite simval ');
readln(simval);
for i:=1 to length(slovo) do
begin
if slovo[i]=simval then k:=k+1;
if slovo[i]=simval then writeln(i,' ');
end;
if k>=1 then
writeln('YES vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('NO');
writeln;
end.
вот в одном решении
Другие вопросы из категории
1. прикладными
2. системными
3. интегрированными
Ответы:
1.Местом в документе
2.Новым документом
3. Файлом веб страницей
4. Новым устройством
и полученную сумму.
В массиве Х (N) найти S1 - сумму положительных элементов массива в первой половине массива и S2 - сумму отрицательных элементов массива во второй половине массива.
Читайте также
символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.
в)подсчитывает количество вхождений заданного символа.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.