Информатика, вопрос опубликован 14.03.2019 07:30 zz66009

Склавиатуры вводят слово и символ. составьте программу, которая определяет позицию заданного символа.

Ответы
Ответ добавил: Гость

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, k : integer; begin

    readln(n);

    k: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if (a[i]> 6) and (a[i]< 10) then k: =k+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел=',k);     readln(); end.

Ответ добавил: Гость

ну так вы уже сами написали ответ. 4080.   7! = 5040 , 5040-960 = 4080

Ответ добавил: Гость

паскаль:

 

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

 

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

 

 

Ответ добавил: Гость

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

 

Больше вопросов по информатике