2048 бит(1/4 килобита=256байт,1 байт=8бит)
1. y = -4; -1; 7; 11; 8; 9
Var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
<span>end.
Это на Pascal'е =)</span>
ФУНКЦИЯ mod вычисляет остаток от деления. Если одно целое делится без остатка на второе, то оно кратно второму. Следовательно, верен ответ с.
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>