Var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.
Ответ 2 , так как последующие ответы не подходят
9)вообще когда считал,получалось 128 бит,но увы там в ответе биты,значит самое оптимальное 64 бит,ответ Б
10) ответ 6,не буду расписывать,слишком долго,там из 25 вычитаешь 13 = 12 и из 12 по условию задачи бежишь
Const n=10;
var a,b:array[1..n] of integer;
i,j:integer;
begin
writeln('Введите ',n,' чисел');
for i:=1 to n do readln(a[i]);
j:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then begin j:=j+1; b[j]:=a[i]; end;
writeln('Полученный массив:');
for i:=1 to j do write(b[i],' ');
writeln;
end.
Пример:
Введите 10 чисел
45
65
12
78
14
47
16
62
42
38
Полученный массив:
12 78 14 16 62 42 38
Свойства:круглый,резиновый,мягкий