victors
?>

Объяснить ! program string29; var otvet: string; i: integer; s0, s: string; c: char; begin writeln('введите строкy s'); readln(s); writeln('введите строкy s0'); readln(s0); writeln('введите символ c'); readln(c); for i: =1 to length(s) do begin if s[i]=c then otvet: =otvet+s0+c else otvet: =otvet+s[i]; end; writeln('ответ: ', otvet); end.

Информатика

Ответы

cat2572066
Var
otvet:String; 
i:integer; 
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);

//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C 
else
Otvet:=otvet+S[i];
end;

Writeln('ответ:', otvet);
end.
terma-msk1

Насколько я понял, нужно перевести из двоичной системы счисления в десятичную.

Обычно это делают, умножая цифру в каждом разряде на "вес" разряда, и складывая эти произведения (естественно, все вычисления делаются по правилам десятичной системы счисления).

Я специально не стал пропускать разряды, равные нулю, чтобы была понятнее суть вычислений при переводе:

1010_2=1*2^3+0*2^2+1*2^1+0*2^0=1*8+0*4+1*2+0*1=\\=8+2=10

А так, их конечно можно пропустить, но главное при этом не пропускать увеличение степени, в которую возводим двойку (она увеличивается на единицу с каждым разрядом в исходном числе). Вот вариант с пропуском нулевых разрядов:

1010_2=1*2^3+1*2^1=1*8+1*2=8+2=10

PopovViktorovna

Компью́тер — устройство или система выполнять заданную, чётко определённую, изменяемую последовательность операций.Это чаще всего операции численных расчётов и манипулирования данными, однако сюда относятся и операции ввода-вывода. Описание последовательности операций называется программой.

С компьютера можно :

*делать вычисление

*создавать базу данных

*управлять устройствами

*Набирать текст , просматривать фильм

*Современные суперкомпьютеры используются для компьютерного моделирования сложных физических, биологических, метеорологических и других процессов и решения прикладных задач

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Объяснить ! program string29; var otvet: string; i: integer; s0, s: string; c: char; begin writeln('введите строкy s'); readln(s); writeln('введите строкy s0'); readln(s0); writeln('введите символ c'); readln(c); for i: =1 to length(s) do begin if s[i]=c then otvet: =otvet+s0+c else otvet: =otvet+s[i]; end; writeln('ответ: ', otvet); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

socofilesrus4
ivanjeka87
Eduard Melikyan
arturo95
borisova-valeriya
olgakuz00261
demakova1969
Urmanov19903131
Иванович621
alexandrxzx09
sashakrotova943
salesrawtogo
Gainalii1912
геннадиевна2001
hrim5736