Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (X ≤ 7) И (X > 8)?
Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X < 14) И (X <18).
Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (X < 14) И не(X <=18).
Для какого из данных слов май, декабрь, июль истинно высказывание: (оканчивается на мягкий знак) И НЕ(количество букв чётное)?
1.Май
2.Декабрь
3.Июль
Для какого из приведённых чисел ложно высказывание: НЕ (число <10) ИЛИ НЕ (число чётное)?
1.10
2.11
3.13
4.8
Для какого из данных слов истинно высказывание: НЕ (есть шипящие) И НЕ (оканчивается на гласную)?Шипящие звуки — это [ж], [ш], [ч'], [щ'].
1.Любовь
2.Забота
3.Отвращения
4.Отчуждённость
Для какого из приведённых имён истинно высказывание:НЕ (Третья буква гласная) И (Последняя буква согласная)?
1.Иван
2.Ксения
3.Марина
4.Матвей
Для какого из данных слов истинно высказывание:НЕ (ударение на первый слог) И (количество букв чётное)?
1.корова
2.кошка
3.конь
4.козел
Для какой из приведённых последовательностей цветных бусин истинно высказывание:(Вторая бусина жёлтая) И НЕ(Четвёртая бусина зелёная) И НЕ(Последняя бусина красная) (К — красный, Ж — жёлтый, С — синий, З — зелёный)?
1.СЗККЖК
2.КЖЗСКС
3.СЖСЗКЗ
3.ЖЖКСЗК
Для какого из приведённых имён истинно высказывание: НЕ(Первая буква гласная) И (Количество букв < 6)?
1.Семен
2.Иван
3.Николай
4.Игорь
Программа "Буква Т"
нач
шаг
шаг
шаг
шаг
поворот
прыжок
прыжок
поворот
шаг
шаг
шаг
шаг
кон
Стрелочка будет находиться наверху, смотреть вправо
Программа "Буква Н"
нач
поворот
поворот
поворот
шаг
шаг
шаг
шаг
поворот
поворот
прыжок
прыжок
поворот
поворот
поворот
шаг
поворот
прыжок
прыжок
поворот
поворот
шаг
шаг
шаг
шаг
кон
Стрелочка находится наверху, смотрит справо
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.