Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.

0 0

4 года назад

На обработку поступает последовательность из n целых чисел. На вход программе сначала подается само число n, потом вводятся n чи

VUSTREL2012

Объяснение:

n = int(input())

for i in range(n) :

vvod = int(input())

if vvod > 0:

res1+=vvod

else:

res2*=vvod

print(res1, res2)

Проверь этот код, так как я его не проверял

0 0

4 года назад

Что такое "принцип хранимой программы"?

Bibliotecar [207]

1. Программа вводится в комп и хранится в той же памяти. что и данные к ней
2. Команды, составляющие программу, представляются в том же числовом коде, что и данные к ней. Это значит, что с кодом программы можно производить те же действия, что и с данными к ней. (Например, написать программу, которая сама меняет свой код, а затем выполняет его. Так получаются вирусы-невидимки :)

0 0

4 года назад