5байтов займет слово 《город》
Var s1,s2:string; i:integer;
Begin
readln(s1);
for i:=1 to length(s1) do
s2:=s2+s1[i]+' ';
writeln(s2);
readln;
end.
<u><em>Ответ:</em></u>
b. функциональных информационных систем.
Могу только на паскале
program poisk;
const
N=12;
var
C:array [1..N] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to N do
read(C[i]);
for i:=1 to N do
if i mod 2 <> 0 then
k:=k+1;
writeln('Кол-во нечетных чисел='k)
end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
for var i:=0 to a.IndexMax-1 do
if a[i]<0 then a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
-35 4 87 60 -93 -23 -95 -24 -19 -52 10 91 -53 -67 -1
0 4 87 60 0 0 0 0 0 0 10 91 -53 -67 -1