Ввести строку с клавиатуры ввести символ с клавиатуры используя оператора ввода задать некоторую строку содержашая 15-25 символов определить длину строки вывести на экран сам символ и позицую в каторой он найден (также надо
задать любое четверостишие это 5)

👇

Увидеть ответ

Ответ:

сснсогаоаг

10.01.2022

var ch,n,i:longint;

ch1,s:string;

begin

read(s,ch);

n:=length(s);

writeln(n,' ',ch);

str(ch,ch1);

for i:=1 to n do if s[i]=ch1 then write(i,' ');

end.

4,4(50 оценок)

Открыть все ответы

Ответ:

annamironenkosp0dly3

10.01.2022

Не знаю, что за автоматизация, но запрос на выборку выглядит так:
SELECT * FROM my_table
или же запрос на выборку с условием
SELECT * FROM my_table WHERE name="kek2255"
при этом еще можно использовать операторы AND(И) и OR(ИЛИ)
SELECT * FROM my_table WHERE name="Иван" AND first_name="Иванов"
SELECT * FROM my_table WHERE name="Иван" OR name="Дмитрий"
и понятное дело их можно комбинировать
SELECT * FROM my_table WHERE (name="Иван" AND first_name="Иванов") OR (name="Дмитрий" AND first_name="Дмитриев")
Можно выполнять запрос из нескольких таболиц
SELECT t1.*, t2.* FROM my_table AS t1, my_table2 AS t2
WHERE t1.id = t2.id_ref

Здесь:
SELECT - Сам оператор выборки
* - это поля выборки, в данном случае все поля(*) -звездочка это значит все поля, но можно просто перечислить id, name, first_name и т.д. При выборе из 2-х и более таблиц указываются префиксы таблицы - это может быть как полное название таблицы(my_table.id) или псевдоним, которое мы указали (FROM my_table AS t1) t1 - будет псевдонимом и выбррка полей будет таким (t1.id, t1.name ...)
FROM - Обязательное ключевое слово(оператор) означает ИЗ(from)
WHERE - Не обязательный оператор условия (ГДЕ)
Если перевести запрос на русский язык, то будет как в 1С:)
ВЫБРАТЬ * ИЗ моя_таблица ГДЕ Имя = "Иван"
Надеюсь

4,6(85 оценок)

Ответ:

Маргольц

10.01.2022

Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}

    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);

    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);

    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();

    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);

    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();

    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();

    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);

    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.

4,4(94 оценок)

Это интересно:

Стиль-и-уход-за-собой

13.08.2021

Секреты получения и сохранения красивого загара в домашних условиях...

Дом-и-сад

02.09.2022

Как посадить дерево: советы от опытных садоводов...

Образование-и-коммуникации

15.03.2022

Квантовая физика: с чего начать, чтобы понять ее?...

Здоровье