Ответ:
Везде нужно <u>взаимоуважение</u>
Объяснение:
Даже в Интернет, даже в социальной сети людям необходимо <u>уважать друг-друга</u>. Конечно, для особых индивидуумов придумали чёрные списки, однако зачем их использовать, если можно просто <u>вести себя нормально</u> (Я исключаю то, что в чёрный список попадают люди, у которых там "любовь" с тем, кто их заблокировал - тут взаимоуважение не поможет). "... С другими показателями..." - все мы люди, не смотря на социальные, физические, умственные способности. <u>Нельзя оскорблять других на пустом месте</u>, ведь в социальной сети мы переписываемся с <u>такими же людьми</u>, как и в реальности. Надеюсь - моя мораль понятна.
Program proga;
var str:string;
i,counter,pos:integer;
k:char;
a:array[1..255] of char;
begin
k:='*';
counter:=0;
writeln('Введите строку');
readln(str);
for i:=1 to length(str) do begin
if str[i]='А' then begin
inc(counter);
Delete(str,i,1);
Insert(k,str,i);
end;
end;
writeln('Количество символов А ',counter);
for i:=1 to length(str) do begin
a[i]:=str[i];
if a[i]='В' then
a[i]:=' ';
write(a[i]);
end;
end.
Ответ:
print('Введите число - ')
a = input()
a = int(a)
b = a // 100
a = a % 100
a = str(a)
b = str(b)
print(a + '' + b)
украшай сам.
Блок-схема с использованием цикла for, в цикле шаг равен +1