var
a: array [1..10] of integer;
i,count:integer;
begin
count:=0;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.
Мы течём по проводам
Мы течём в розетке
220 вольт это не конфетки!
X = 4
y = 132
t = x mod y = 4 mod 132 = 4
x = x+t+15 = 4+4+15 = 23
y = y div x = 132 div 23 = 5
t = t+y = 4+5 = 9
Присвоить - это двоеточие и равно :=