Получается-меяботка??!!а ты в каком классе
Var i,sum:integer; a:array[1..10] of integer;
begin;
for i:=1 to 10 do readln(a[i]); next i;
sum:=0;
for i:=1 to 10 do sum:=sum+a[i]; next i;
writeln('Сумма элементов = ',sum);
end.
===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.
Посути вроде нужно 252 10сс перевести в 25сс пусть будет число из 2х символов
В электронная книга не содержит красящих компонентов